Definiere ein neues Feld (Beisp: TasteESC : Boolean).Setze das Feld (TasteESC) vor der Schleife auf 'False'.Die Schleife abbrechen wenn das Feld (TasteESC) auf 'True'ist.Bau in das Formular einen Schalter 'Button' (oder alleTasten-Eingaben über das Formular lenken) ein und setzedie Eigenschaft 'Button.Cancel' auf 'True' (darf nur dereinzige Schalter mit dieser Eigenschaft (True) sein).Nun wird das 'OnClick'-Ereignins des Schalter jedesmalaufgerufen wenn die Taste 'ESC' gedrückt wird.In diesem Ereignis setzt du das Feld 'TasteESC' auf 'True'.Danach wird die Schleife abgebrochen.Du kannst aber im Formular-Ereignis 'FormKeyDown' die ESC-Taste abfragen Beispiel: if Key = VK_ESCAPE then TasteESC := True;
geschrieben von
Waidler
,
03.11.1999, 09:02 Uhr
, 36 mal gelesen