witam :)
mam pytanko - sa 2 formy na "1" kila gridow z rekordami, "2" to potwierdzenie akcji - w tym przypadku - "czy na pewno chcesz usunac rekord" - jak moge dostac sie do zmiennych na formie "1" forme 2 wywoluje:
Form16:=TForm16.Create(nil);
Form16.ShowModal;
przy dostepie do Ado, gridow(podczas proby usuniecia rekordu" access violation
stworz sobie zmienne x,y : integer;
row i cel ponziej bedzie po nacisnieciu dla buttona on click form1.stringgrud.usun(x,y); ? spyta sier jeszcze o dodanie formy do projektu
nierozumiem
--stringgrud?
chodzi mi o to,iz:
wykonuje mi sie jakas akcja na form1 i teraz w zaleznosci od tego co wcisne na pojawiajacym sie oknie form2 to robi mi albo rzecz 1 albo rzecz2
np.
OnClick ->form1.butoon1 -> Form18:=TForm18.Create(nil);
Form18.ShowModal;
otwiera sie form 18 i tam 2 przyciski tak, nie
po wcisnieciu tak lub nie podstaiwa pod jaks zmienna wartosc 0,1 i wraca do formy 1. gdzie w zaleznosci od tego jaka wartosc to robi cos
Nie latwiej zrobic na MessageDlg?
A jesli juz robisz na wlasnych formach to zrob tak:
Form2:
procedure TForm2.Button1Click(Sender: TObject);
begin
Form2.ModalResult:=mrOK; //To automatycznie zamknie forme
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
Form2.ModalResult:=mrNo;
end;
A w Form1:
procedure TForm1.Button1Click(Sender: TObject);
var R:TModalResult;
begin
R:=Form2.ShowModal;
If R=mrNo then Windows.Beep(400,100);
If R=mrOK then Windows.Beep(4000,100);
end;
A tu masz rozpisane TModalResult:
Constant Value Meaning
mrNone 0 None. Used as a default value before the user exits.
mrOk idOK The user exited with OK button.
mrCancel idCancel The user exited with the CANCEL button.
mrAbort idAbort The user exited with the ABORT button.
mrRetry idRetry The user exited with the RETRY button.
mrIgnore idIgnore The user exited with the IGNORE button.
mrYes idYes The user exited with the YES button.
mrNo idNo The user exited with the NO button.
mrAll mrNo + 1 The user exited with the ALL button.
mrNoToAll mrAll + 1 The user exited with the NO TO ALL button.
mrYesToAll mrNoToAll + 1 The user exited with the YES TO ALL button.
Z reszta.... zobacz sobie w helpie....
[browar]
w form18
przy tak
ModalResult := mrYes;
przy nie
ModalResult := mrNo;
tam gdzie ją pokazujesz
if Form18.ShowModal = mrYes then
...
//ech Cimak bestio jedna :P
no co? :)