Registracija

TShiftState je nekompatibilan uvek

Odgovori Nova tema

1 odgovor
2.281 pregleda

TShiftState je nekompatibilan uvek 30.12.2006. u 21:37 · pre 241 mesec #1

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?

Potpis

http://www.potpis.com/

Re: TShiftState je nekompatibilan uvek 30.12.2006. u 22:35 · pre 241 mesec #2

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);

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme