Forum: Object-Pascal / Delphi-Language
Delphi
by Thorben_Ko,
7. Nov 2007
Hat sich erledigt, ich stand auf dem schlauch -.-
Falls es jemand mal braucht:
procedure TFarbFeld.MouseDown(Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
inherited MouseDown(Button, Shift, X, Y);
Forum: Object-Pascal / Delphi-Language
Delphi
by Thorben_Ko,
7. Nov 2007
Hallo, es ist zum verrückt werden.
Ich bastel an einer Komponente und steh greade auf dem schlauch.
Ich vererbe von TPaintBox, und möchte das OnMouseDown event erweitern.
Bei OnClick hab ich rausgefunden ist das kein probleme
TFarbFeld = class(TPaintBox)