MessageDlg über den Default-Button automatisch schließen (MeinCustomDialog.Close; ?)

[RandomDD]

Zitat:

Nur, wenn eine Fernsteuerung (was immer das sein mag) möglich ist ohne den entsprechenden Modus (was darf man darunter verstehen) einzuschalten, solltest Du das Bedienkonzept Deiner Software einmal überdenken.

Der Modus aktiviert nicht die Fernsteuerung sondern er unterbindet das Anzeigen von Dialogen.

Zitat:

Bei Mausbewegung oder Tastenklick wird der TimeOut deakiviert.

Gute Erweiterung. Habe ich soeben auch hinzugefügt.

Delphi-Quellcode:

 procedure MeinCustomMsgDialogOnMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

 // ...

 MeinCustomMsgDialog.OnMouseMove := MeinCustomMsgDialogOnMouseMove;

 // ...

 procedure TMeineForm.MeinCustomMsgDialogOnMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
 begin
  MeinCustomMsgDialogTimer.Enabled := False;
  MeinCustomMsgDialogCounterLabel.Visible := False;
 end;