Pausieren bis zum Buttonklick

[AlbertEinstein]

Hallo zusammen!

Ich hab ein kleines Problem, was ich gerne an euch weitergeben würde, da ich einfach keine Lösung finde.
Ich möchte bei einem Seriellen Monitor ein neues Fenster als Einstellungsfenster einfügen. Das klappt auch wunderbar...
Das Problem ist nun: Das Fenster soll über die Methode TOpenConnection.Exec: Integer; (OpenConnection ist der Narme des Formulars)aufgerufen werden, welche als Rückgabewert eine ID für den gedrückten Button (Übernehmen/Abbrechen) zurückgibt. Wie kriege ich es jetzt hin, dass das Programm wartet, bis einer der Buttons gedrückt ist?
Sorucecode:

Code: Alles auswählen

function TOpenConnection.Exec: Integer;
begin
  OpenConnection.Show;
 
  //Warten auf Tastendruck, Ergebnis speichern in  _click.
  //Übernehmen = 1 | Abbrechen/Fenster schließen = 0
 
  Result := _click;
  OpenConnection.Hide;
end; 

Ich hoffe, ihr könnt mir helfen...

[m.fuchs]

ShowModal könnte dir helfen.

[AlbertEinstein]

Vielen Dank; das klingt ziemlich vielversprechend.
Ich werd's mal ausprobieren...

[Komoluna]

oder so:

Code: Alles auswählen

 
...
var
geklickt:boolean=false;
modresult:integer;     //<---Modal-Result
...
implementation
 
procedure TOpenConnection.Buttonclick(Sender:TObject);
begin
  geklickt:=true;
  if Sender=Button1 then modresult:=1;
  if Sender=Button2 then modresult:=0;
end;
 
function TOpenConnection.Exec: Integer;
begin
  OpenConnection.Show;
  while geklickt=false do
  application.processmessages;
  Result := modresult;
  OpenConnection.Hide;
end; 
 

und die OnClick prozedur der beiden Buttons auf TOpenConnection.Buttonclick(Sender:TObject) stellen, viel Spass

Komoluna