Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
30. Okt 2007
Hallo Thomas,
klar, wenn du es vom Design deiner Anwendung her brauchst:
procedure TTestDialog.EditExit(Sender: TObject);
begin
if Screen.ActiveControl = Button
then Exit
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
30. Okt 2007
Hallo Thomas,
wird der Button durch ein explizites oder implizites Tastenkürzel gedrückt, dann wird der Dialog geschlossen, ohne dass die OnExit-Routine der TEdit-Komponente durchlaufen wird. Dein Problem tritt doch nur auf, wenn der Benutzer den Button per Tabulator fokusiert und dann ist das auch in Ordnung - finde ich.
Freundliche Grüße