In das Click-Event vom Button:
Delphi-Quellcode:
if (r = z) then
begin
Close;
end
else
begin
ShowMessage('Erst zuende raten.');
end;
OK, daß es ein bissl "blöd" ist, wenn bei jedem Fehlversuch die Meldung kommt, wurde ja schon erwähnt.
Aber noch unschöner ist, daß bei erfolgreichem Raten das Fenster/Programm einfach so und ohne Vorwarnung verschwindet.
