Oczekiwanie na zamkniecie formy

0

Mam problem z napisaniem pewnego etapu mojego programu otóż.

Poprzez naciśniecie np buttonA wykonuje się w nim następujący kod:

  • stworzenie nowej formy z polem edit i przyciskiem buttonB

I teraz jak sprawić aby program czekał na dane z pola edit przesyłane do procedury w buttonA poprzez naciśniecie buttonB ?

2

ShowModal + TBrain

0

Utwórz sobie normalną formę Form2 z polem edit i przyciskiem buttonB. Będzie to druga forma programu, początkowo niewidoczna. Ustaw buttonB.ModalResult:=mrOK.

procedure TForm1.buttonAClick(Sender: TObject);
begin
  Form2.ShowModal;//program będzie czekał na zamknięcie Form2
//reszta kodu która się wykona po zamknięciu Form2
//np odczytanie Form2.Edit1.Text
end;

procedure TForm2.buttonBClick(Sender: TObject);
begin
  Close;//Form2 się zamknie a uaktywni Form1
end;
1

jeżeli ma być tylko edit i button to skorzystaj z InputBox

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