Łączenie Form

0

Witam Serdecznie, Tworzę prostą aplikację w której chciałabym połączyć działanie form , wygląda to tak:

Na Formie : Form1

[Pole Edit2]
[Pole Edit3]
[Pole Edit4]

[ZAPISZ WYNIK] < - - - otwiera się nowa forma (Form2) z 2 możliwościami : Zapis txt oraz zapis INI

I teraz moje pytanie brzmi: Jak odwołać się do Form1 ?

kod zapisujący txt który umieszczam pod button na Form1 jest poprawny wygląda on tak:

var strl : TStringlist;
begin
SaveDialog.Execute;
strl := TStringList.Create;
strl.Add(Edit3.Text);
strl.Add(Edit2.Text);
strl.Add(Edit4.Text);
strl.SaveToFile('SaveDialog.FileName');
strl.Free;
ShowMessage('Zapisano zawartość w katalogu');

Proszę o pomoc. Pozdrawiam :)

0

To proste, jeżeli chcesz odwołać się na innej formie (u ciebie to Forma 2) do nastepnej innej formy (u ciebie to Forma 1) wystarczy przed poleceniem dodać:

FormX.(...)

Czyli w twoim przypadku na formie 2 umieść taki kod:

var strl : TStringlist;
begin
SaveDialog.Execute;
strl := TStringList.Create;
strl.Add(Form1.Edit3.Text);                    //zostało dodane tutaj Form1
strl.Add(Form1.Edit2.Text);                    //tutaj również zostało dodane Form1
strl.Add(Form1.Edit4.Text);                    //i tutaj
strl.SaveToFile('SaveDialog.FileName');
strl.Free;
ShowMessage('Zapisano zawartość w katalogu');

Myślę, że pomogłem.

0

Wielkie dzięki bardzo pomogłeś :)

Gdybyś mógł pomóc z komunikatami:
Jeżeli wybrano plik to komunikat ....
Jeżeli nie wybrano pliku to komunikat...

0

@iwonatechif, wstawisz sobie komendy sam:

(...)
if (tutaj komenda: jeżeli wybrano plik) then begin          //wstawiasz komende jeżeli wybrano plik
ShowMessage('Wybrano plik!');                                      //komunikat jeżeli wybrano plik
end else
ShowMessage('Nie wybrano pliku!');                               //komunikat jeżeli nie wybrano pliku
end;
(...)
0

To było naprawdę proste. Wielkie DZIĘKI i pozdrawiam :))

1 użytkowników online, w tym zalogowanych: 0, gości: 1