Incompatible types

[MarKteus 1]

Ola pra todos !!!

 

procedure TFrmPalco.MeuMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

if (Shift = ssAlt) then

-- begin

---- showMessage('O Alt está pressionado)

-- end;

end;

 

A linha if (Shift = ssAlt) then está dando erro, mais precisamente Incompatible types, pq ? :unsure:

[Hugo Slepicka 0]

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);begin  if (ssAlt in shift)then  Begin	Showmessage('OK');  End;end;

 

Falow aew! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif