Hm,
ursprungsproblem zwar gelöst, aber da kommt schon das nächste.
Gleiche Bausstelle, allerdings benötige ich jetzt noch OnMouseDown.
(fmyMachines.Last as TmyMachine).OnMouseDown := myMachineMouseDown;
Wenn ich gleiches mit Schema F durchziehe meckert der Delphi mit
Zitat:
Incompatible types: 'TObject' and 'TMouseButton'
Code in TmyMachine
Delphi-Quellcode:
protected
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer); override;