dynamisch erzeugte Buttons und mouseenter/down

[dko76]

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;

[jfheins]

(Sender as TButton).DoSomething;

[Waldteufel]

Hi.

Zitat von dko76:

ich kann im OnMouseEnter ja nicht schreiben:
Button1.width := ... das würde sich ja dann immer auf den selben Button beziehen...

Schreib stattdessen:
(Sender as TButton).width := ... //edit: Dieser !"§$%&/()=? rote Kasten

[dko76]

WOW!

Mann, seid ihr schnell. Sehr nett! Vielen Dank, für die Antworten !!!