Alle Klicks auf Form abfangen

[Schwedenbitter]

Erstmal danke für die Geduld!

Zitat von jaenicke:

Ein Popupfenster stelle ich mir nicht modal vor, das muss mit Show angezeigt sein. Ansonsten funktioniert das mit dem Danebenklicken natürlich nicht.

Wir bei mir auch "nur" mittels show angezeigt. Das Danebenklicken frage ich schon umständlich ab. Also hätte ich an OnExit(); schon sehr Interesse! Denn dann hätte ich ein Event und gut wäre es.

Zitat von jaenicke:

Habe ich die Eigenschaft gerade verwechselt? Hieß die OnLeave? Müsste ich nachschauen. Die muss jedenfalls im Objektinspektor sein wie das Gegenstück OnEnter.

Nein, Du hast es richtig. Es gibt ein OnExit für die Ableitungen von TControl. Allerdings bekomme ich das nicht zum Funktionieren:

Delphi-Quellcode:

type
   TForm1 = class(TForm)
     SpeedButton1: TSpeedButton;
     ScrollBox1: TScrollBox;
     ComboBox1: TComboBox;
     procedure SpeedButton1Click(Sender: TObject);
     procedure ScrollBox1Exit(Sender: TObject);
   end;

var
   Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ScrollBox1Exit(Sender: TObject);
begin
   ScrollBox1.Visible:= False;   // Wird nicht ausgelöst :-(
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
   ScrollBox1.Visible:= Not ScrollBox1.Visible;
end;

Zitat von jaenicke:

Aber ganz verstehe ich das noch nicht... die Controls auf dem Popup soll man gar nicht nutzen können? Wenn man drauf klickt soll das Popupfenster verschwinden? Oder soll man diese per Tastatur anspringen und nutzen können?

Habe mich vermutlich auch bloß blöd ausgedrückt:
Auch Popup-Menüs kann man dazu "missbrauchen", um neben den MenuItems auch Infos anzuzeigen; etwa in Enabled:= False Items. Ich mache den Aufwand auch bloß, weil ich es nicht schaffe, die Popup-Menüs vom Aussehen her dem neuen Klicki-Bunti-Groß-Aussehen der Windows-10-Apps anzugleichen und TComboBoxes einzufügen.
Ich habe mal 2 Bilder dazu angehängt. Es soll aussehen, wie das große Bild. Das kleine Bild zeigt den oben wiedergegebenen Code an. Weder ein Klick auf das Formular, noch den SpeedButton, noch den Windows-Desktop lösen OnExit aus...

[jaenicke]

Grad nachgeschaut, beim Formular ist es OnDeactivate.

[HolgerX]

Hmm..

Also, wenn dein Popup eine TForm-Ableitung ist, das Form mit 'Show' angezeigt wird und Du möchtest, dass dieses Formular 'geschlossen' wird Du neben dieses Formular in deine Anwendung clickst,
dann benutze doch das OnDeactivate-Event:

Delphi-Quellcode:

procedure TForm2.FormDeactivate(Sender: TObject);
begin
  Close;
end;

Das Gegenstück ist OnActivate

Nur ein Control mit einem Eingabefeld hat ein OnEnter und ein OnExit, da man 'hinein' und wieder 'hinaus' gehen kann.
Ein Formular selber hat kein Eingafeld, somit auch kein OnEnter/OnExit.
Das gleiche gilt für Scrollboxen, Panels, Buttons..

Wenn Du noch willst, dass die Popup-Form auch geschlossen wird, wenn deine Applikation den Focus verliert, dann musst du mit Application.HookMainWindow arbeiten.

Delphi-Quellcode:

function TForm1.AppHookFunc(var Message: TMessage): Boolean;
begin
  Result := False;
  if Message.Msg = CM_ACTIVATE then begin
// Hier alles was beim Aktivieren deiner Applikation
  end;
  if Message.Msg = CM_DEACTIVATE then begin
// Hier alles was beim DeAktivieren deiner Applikation
// Wie z.B. PopUp.Close;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.HookMainWindow(AppHookFunc);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Application.UnHookMainWindow(AppHookFunc);
end;