Maus auf Komponente?

[MCXSC]

Hallo,

wie kann ich feststellen ob und auf welcher Komponente (z.B. ComboBox) sich die Maus befindet?

MCXSC

[inherited]

Machs doch einfach mir der OnMouseMove-Procedure der einzelnen Kompos

[MCXSC]

Ja, bei buttons z.B. gehts auch, aber eine ComboBox z.B. hat kein MouseMove-Ereignis...

[inherited]

Das nicht, aber etwas viel besseres, das OnMouseEnter, bzw das OnMouseLeave ereignis

[Sharky]

Zitat:

Zitat von inherited

Machs doch einfach mir der OnMouseMove-Procedure der einzelnen Kompos

Das können dann ja "hundert" von Methoden werden. ;-)

Lieber die Messages CM_MOUSEENTER und CM_MOUSELEAVE global auswerten.

Delphi-Quellcode:

  private
    { Private-Deklarationen }
    ControlOnMousePos: TControl;
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
  public
    { Public-Deklarationen }
  end;

var
  DemoForm: TDemoForm;

implementation

{$R *.dfm}

procedure TDemoForm.CMMouseEnter(var Message: TMessage);
var
  ptWork: TPoint;
begin
  GetCursorPos(ptWork);
  ControlOnMousePos := FindDragTarget(ptWork, TRUE);
  if Assigned(ControlOnMousePos) then
  begin
    Label1.Caption := ControlOnMousePos.Name;
  end;
end;

procedure TDemoForm.CMMouseLeave(var Message: TMessage);
begin
  ControlOnMousePos := NIL;
end;

[inherited]

jaaa ok, aber wenn man nurn paar kompos hat, is es kürzer das anders zu lösen

[SirThornberry]

Nehmt doch einfach die Funktion ControlAtPos oder wenn lange weile herrscht das ganze selbst schreiben in dem man die WinControls rekursiv durchgeht.