Problem mit Buttons OnMouseEnter. Alle Buttons gläntzern

[Praxist]

Zitat von TonyR:

Ich versteh nicht ganz, möchtest du bei allen BitButtons diesen Effekt haben, oder nur bei einem?

Bei letzterem würde ich folgene Anweisung nicht verstehenif WindowFromPoint(ptWork) = BitBtn2.Handle then Und bei Ersterem nicht, warum du nicht ganz normal über die OnEnter Prozedur des Bitbtn zugreifst!?

ich möchte diesen Effekt bei mehreren BitButtons haben
>> warum du nicht ganz normal über die OnEnter Prozedur des Bitbtn zugreifst!?
weil D7 den Event OnMouseLeave nicht hat sondern nur OnMouseMouve

Das Problem kommt von dem Event OnMouseEnter, was ich programmiert habe, und
möchte ich ändern

>> Bei letzterem würde ich folgene Anweisung nicht verstehen

Delphi-Quellcode:

procedure TForm1.ButtonsCMMouseEnter(var Message: TMessage); 
var
  ptWork : TPoint;
begin
  GetCursorPos(ptWork);
  if WindowFromPoint(ptWork) = BitBtn2.Handle then // wenn der cursor drauf kommt