Code:
procedure TForm1.FX1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure TForm1.FX1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Ne mogu da upotrebim TShiftState nikako jer sta god da napisem pise greska Incompatible types.
A kada hocu da pozovem rucno taj dogadjaj, npr.
FXChWet1MouseDown(Sender,mbLeft,ssShift,2,50);
Onda ako napisem ssShift bude: Incompatible types 'TShiftState' and 'Enumeration', a ako napisem neki broj bude: Incompatible types 'TShiftState' and 'Integer'.
Kako to da resim?