Hallo,
ich erzeuge Buttons zur Laufzeit und weise ihnen eine gemeinsames OnMouseEnter zu. Gibt es irgendeine Möglichkeit (ausser über einen Koordinatenvergleich), wie ich im OnMouseEnter weiss, welcher Button ausgelöst hat? z.B. um mit dem Button dann irgendwas anzustellen.
ich kann im OnMouseEnter ja nicht schreiben:
Button1.width := ...
das würde sich ja dann immer auf den selben Button beziehen...
vielen dank für jede Hilfe,
stef
p.s.:
hier noch die procedure, die die Buttons anlegt:
Delphi-Quellcode:
procedure TForm1.drawGROUPbutton(xpos: integer; xname: String);
begin
SetLength(arGroupbutton, Length(arGroupbutton) + 1);
arGroupbutton[xpos] := TJvNavPanelButtonExtCP.Create(Form1);
with arGroupbutton[xpos] do begin
Parent := panelGROUP;
Height := heightBT;
Width := widthBT;
Top := 0;
Left := 0 + xpos * widthBT;
Visible := true;
OnMouseEnter := btGROUPMouseEnter;
end;
end;