Ermitteln woher ein Control den Fokus erhalten hat

[Hawkeye219]

Hallo,

hier ist noch ein Vorschlag:

Delphi-Quellcode:

type
  TPopupForm = class (TForm)
    procedure FormDeactivate (Sender: TObject);
  private
    const
      WM_HideWindow = WM_APP + 1;
    procedure WMHideWindow (var aMsg: TMessage); message WM_HideWindow;
  end;

procedure TPopupForm.FormDeactivate (Sender: TObject);
begin
  PostMessage(Handle, WM_HideWindow, 0, 0);
end;

procedure TPopupForm.WMHideWindow (var aMsg: TMessage);
begin
  Hide;
end;

//

procedure TMainForm.StatusBarMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,
  Y: Integer);
begin
  PopupForm.Visible := not PopupForm.Visible;
end;

Gruß Hawkeye