Thema: Delphi Zwei-mal onmousedown?

Einzelnen Beitrag anzeigen

maximi

Registriert seit: 9. Jun 2003
217 Beiträge
 
Delphi 7 Personal
 
#4

Re: Zwei-mal onmousedown?

  Alt 21. Jan 2004, 14:01
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!
  Mit Zitat antworten Zitat