Warnen vor dem schließen

[schmitty89]

Zitat von Medium:

Delphi-Quellcode:

procedure TForm1.OnCloseQuery(Sender: TObject; CanClose: Boolean);
begin
  if MessageDlg('Echt schließen?', mtConfirmation, [mbYes, mbNo], 0) = mrNo then
    CanClose := false;
end;

Wäre ein einfacher und sauberer Weg.

Das hat mir doch schon geholfen aber kann man das abhängig machen von dem was eingegeben wurde?
Also wenn er richtig geraten hat soll es gar nicht erst angezeigt werden, sonst schon.
Müsste man dann um das ganze eine If-schleife laufen lassen?
Könnte man das nicht einfach ans Ende dieser if bedingung setzen:

Delphi-Quellcode:

if r < z then Label2.Caption := 'Zu niedrig'
   else if r > z then Label2.Caption := 'Zu hoch'