Zwei-mal onmousedown?

[Minz]

Hi hat Tonic schon geschrieben:

Zitat:

constructor TButtonskin.set_koordinaten;

begin

TButtonskin.Create(self);
Parent := parent;
OnMouseDown := buttonskinonmousedown;


end;

Parent und OnMouseDown müssen TButtonskin auch zugeordnet werden.

Also entweder so:

Delphi-Quellcode:

constructor TButtonskin.set_koordinaten;
begin
  with TButtonskin.Create(self) do begin
       Parent := parent;
       OnMouseDown := buttonskinonmousedown;
  end;
end;

oder so

Delphi-Quellcode:

constructor TButtonskin.set_koordinaten;
begin
  TButtonskin.Create(self);
  TButtonskin.Parent := parent;
  TButtonskin.OnMouseDown := buttonskinonmousedown;
end;