MainForm-Messages in Komponente hooken

[omata]

Hallo Helmi,

wie wäre es so...

Delphi-Quellcode:

uses Classes, Dialogs, AppEvnts;

type
  TMyComponent = class(TComponent)
  private
    { Private-Deklarationen }
    AppEvents:TApplicationEvents;
    procedure ApplicationEventsMinimize(Sender: TObject);
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
    constructor create(AOwner: TComponent); override;
    destructor destroy; override;
  published
    { Published-Deklarationen }
  end;

implementation

constructor TMyComponent.create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  AppEvents:=TApplicationEvents.Create(AOwner);
  AppEvents.OnMinimize:=ApplicationEventsMinimize;
end;

destructor TMyComponent.destroy;
begin
  AppEvents.free;
  inherited;
end;

procedure TMyComponent.ApplicationEventsMinimize(Sender: TObject);
begin
  showmessage('minimiert');
end;

Gruss
Thorsten