Auf das Öffnen einer anderen Form/Dialog reagieren?

[kaju74]

Zitat von himitsu:

Ich hoffe du hast TApplicationEvents.OnModalBegin verwendet, wenn es das bei dir schon gibt.


Wenn ein Systemdialog aufgeht, geht ein dein Fenster ein WM_ENABLE mit wParam=0 (False) rause.
Und nachher dann mit wParam<>0 (True).

Habe ich - danke. Geht nun auch so wie gewünscht

[Perlsau]

Offenbar hab ich das Problem falsch verstanden - Beitrag kann gelöscht werden ...

Zitat von kaju74:

Irgendeine Idee, wie man sich da 'rein-hookt'?

Einen Hook benötigst du dazu nicht. Ich gehe mal davon aus, daß die Unit deiner SubForm in der Unit deiner MainForm unterhalb des Implementation-Abschnitts in der Uses-Klausel steht, so daß du von der MainForm aus die SubForm aufrufen/ansprechen kannst. Wenn dem so ist, deklarierst du in der SubForm ein Ereignis, dem du in der MainForm eine Methode zuweist:

Delphi-Quellcode:

UNIT SubForm;

INTERFACE

USES
  Winapi.Windows, Winapi.Messages,
  System.SysUtils, System.Variants, System.Classes, System.Actions,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

TYPE
  TToolButtonClickedEvent = Procedure of Object;

TYPE
  TFormSub = CLASS(TForm)
...

  PRIVATE { Private-Deklarationen }
    fToolButtonClicked : TToolButtonClickedEvent;
...
  PUBLIC  { Public-Deklarationen  }
...
    Property OnToolButtonClicked : TToolButtonClickedEvent read fToolButtonClicked write fToolButtonClicked;
  END;

VAR
  FormMain: TFormMain;

IMPLEMENTATION
...

Da deinen ToolButtons vermutlich unterschiedliche Ereignisbehandlungsmethoden zugewiesen werden, löst du in jeder dieser Ereignisbehandlungen dieses Event aus:

Delphi-Quellcode:

Procedure TFormSub.MyToolBtn1Execute(Sender: TObject);
begin
  MachIrgendwas;
  ...
  If Assigned(fToolButtonClicked) Then fToolButtonClicked;
end;

In deiner MainForm-Unit reagierst du dann mit der gewählten Methode auf das Ereignis in der SubForm:

Delphi-Quellcode:

Procedure TFormMain.FormActivate(Sender: TObject);
begin
  ...
  SubForm.OnToolButtonClicked := MeineReaktionsMethode;
  ...
end;

[kaju74]

@Perlsau:

Danke - aber genau dies wollte ich vermeiden, da es sehr, sehr viele Stellen im Programm sind, die entweder eigene Dialoge oder System-Dialog öffnen. Vielleicht mal zum eigentlichen Problem:

Ich habe einen eigenen Hint, der detailliert Auskunft über bestimmte Dinge gibt. Dieses HintWindow bleibt ~20 Sekunden stehen, damit man genügend Zeit zum Lesen hat. Ruft man nun einen System-Dialog aus einem Menü auf, und die Maus ist zufälligerweise auf einem Eintrag mit einem Hint, dann poppt der entsprechende Dialog auf, aber das Hint-Window eben auch. Und genau dieses möchte ich dann eben vorher explizit schließen können. Darum muss ich mich global da irgendwie reinhooken.

Mit oben genannten Botschaften bzw. Events scheint das aber nun zu klappen.

Danke,
Marc