Einzelnen Beitrag anzeigen

RandomDD

Registriert seit: 11. Aug 2016
42 Beiträge
 
#20

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

  Alt 19. Aug 2016, 14:40
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;

Geändert von RandomDD (19. Aug 2016 um 14:46 Uhr)
  Mit Zitat antworten Zitat