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