[ mihaylo @ 30.12.2006. 20:37 ] @
U funkciji

Code:
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?
[ morlic @ 30.12.2006. 21:35 ] @
Deklaracija procedure kaze da imas cetiri parametra, a ti kada pozivas prosledjujes pet. Znaci, to ne moze definitivno.

Plus sto pogresno saljes parametar TShiftState. Radi se o setu. Ispravno bi bilo:

FXChWet1MouseDown(Sender, [ssShift], 2, 50);