onMouseclick procedur in eigener Komponente

[patti]

Du hast geschrieben:

Delphi-Quellcode:

procedure MouseDown(Button: TMouseButton;
          Shift: TShiftState; X, Y: Integer);
begin
//
inherited MouseDown(Button,Shift,x,y); 
//
end;

Richtig muss es aber heißen:

Delphi-Quellcode:

procedure TBinaryClock.MouseDown(Button: TMouseButton;
          Shift: TShiftState; X, Y: Integer);
begin
//
inherited MouseDown(Button,Shift,x,y); 
//
end;

Nicht das "TBinaryClock" vergessen!