Teclas asseleradoras

Delphi

21/06/2005

Estou tentando almentar o zoon, atravez do Zoon do mouse e precionado a tecla Ctrl, de um preview que criei.
com o codigo a seguir:

procedure TFM_Priview.QRPreview1MouseWheel(Sender: TObject;
Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
var Handled: Boolean);
begin
[b:e4cdf5af46]if (Shift = ssCtrl) then[/b:e4cdf5af46]
if(WheelDelta > 0) then
Zoonout.Execute
else
Zoonin.Execute;
end;

mais apresenta um erro de classe imcompativel, linha em destaque.

poderia ajudar-me porgentileza


Zimair

Zimair

Curtidas 0

Respostas

Massuda

Massuda

21/06/2005

O parametro Shift é um TShiftState que é um [b:180ef1bbbf]set[/b:180ef1bbbf], ou seja, pode conter mais de um valor. No caso, você deve testar se ssCtrl está no set:
if ssCtrl in Shift then...
Note que se o usuário apertar as teclas Shift+Ctrl+Alt, o parametro Shift irá conter [ssShift, ssCtrl, ssAlt].


GOSTEI 0
Zimair

Zimair

21/06/2005

Desculpe ter incomodado. hoje quando foi analizar o codiogo eu percebi e já tinha solucionado.

obrigado


GOSTEI 0
POSTAR