Fórum Detectar o control pressionado #217080

27/02/2004

0

quero detectar o control pressionado.

no onkeydown do form coloquei

if key=vk_return then ....

só que preciso que seja com...

control e enter

tentei if key=vk_return and shift=sscontol + nao da.

VALEU.

ricardo

[b:003f6674b1][color=red:003f6674b1]Título editado pelo Moderador (AZ) - Removido: ´dae, essa é mole, to comendo barriga - detectar o control pr´[/color:003f6674b1][/b:003f6674b1]


Rfpsatin

Rfpsatin

Responder

Posts

27/02/2004

Beppe

tentei if key=vk_return and shift=sscontol + nao da.

Tenta Shift = [ssControl].


Responder

Gostei + 0

27/02/2004

Rfpsatin

hehe, não deu.

if (Shift = [ssControl]) then ;

[Error] UnitBase.pas(63): Undeclared identifier: ´ssControl´


Responder

Gostei + 0

28/02/2004

Beppe

Até o Delphi 5, se não me engano, ssControl tava na unit Menus, depois ela mudou pra outra...

Tenta Menus, se não faz um search na pasta da vcl.


Responder

Gostei + 0

28/02/2004

Cebikyn

Ei Beppe, não seria [b:ef11ecc942]ssCtrl[/b:ef11ecc942] ao invés de ssControl ?


Responder

Gostei + 0

28/02/2004

Beppe

Ei Beppe, não seria [b:ef0e534ae2]ssCtrl[/b:ef0e534ae2] ao invés de ssControl ?


Pode ser, pode ser... :oops: É que como o próprio satin tinha usado ssControl, eu fui no embalo dele... :oops:


Responder

Gostei + 0

28/02/2004

Cebikyn

Acontece....

e o ssCtrl foi pra classes.pas no D6.


Responder

Gostei + 0

29/02/2004

Rfpsatin

ae,
if ( (Shift = [ssCtrl]) and (key=vk_return))then
 showmessage(´comi barriga feio ;-)´);


não disse q tava comendo barriga rs...


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar