Fórum Teclas asseleradoras #285668
21/06/2005
0
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
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
Curtir tópico
+ 0
Responder
Posts
22/06/2005
Massuda
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:Note que se o usuário apertar as teclas Shift+Ctrl+Alt, o parametro Shift irá conter [ssShift, ssCtrl, ssAlt].
if ssCtrl in Shift then...
Responder
Gostei + 0
22/06/2005
Zimair
Desculpe ter incomodado. hoje quando foi analizar o codiogo eu percebi e já tinha solucionado.
obrigado
obrigado
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)