Also, das ist jetzt mein verkützter Komponenten Quellcode:
Delphi-Quellcode:
procedure buttonskinonmousedown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
{ Public-Deklarationen }
published
{ Published-Deklarationen }
end;
procedure Register;
implementation
procedure TButtonskin.buttonskinonmousedown;
begin
ImageList1.GetBitmap(1,Picture.Bitmap);
Refresh;
end;
constructor TButtonskin.set_koordinaten;
begin
TButtonskin.Create(self);
Parent := parent;
OnMouseDown := buttonskinonmousedown;
end;
So und das ist mein Form Quellcode:
Delphi-Quellcode:
procedure TForm1.Buttonskin1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
showMessage('asd');
end;
Wenn ich in meinem Form auf meinen Buttonskin clicke, verändert sich das Bild, aber ich bekomme keine Message.
Danke!