Detectar o control pressionado
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]
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
Curtidas 0
Respostas
Beppe
27/02/2004
tentei if key=vk_return and shift=sscontol + nao da.
Tenta Shift = [ssControl].
GOSTEI 0
Rfpsatin
27/02/2004
hehe, não deu.
if (Shift = [ssControl]) then ;
[Error] UnitBase.pas(63): Undeclared identifier: ´ssControl´
if (Shift = [ssControl]) then ;
[Error] UnitBase.pas(63): Undeclared identifier: ´ssControl´
GOSTEI 0
Beppe
27/02/2004
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.
Tenta Menus, se não faz um search na pasta da vcl.
GOSTEI 0
Cebikyn
27/02/2004
Ei Beppe, não seria [b:ef11ecc942]ssCtrl[/b:ef11ecc942] ao invés de ssControl ?
GOSTEI 0
Beppe
27/02/2004
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:
GOSTEI 0
Cebikyn
27/02/2004
Acontece....
e o ssCtrl foi pra classes.pas no D6.
e o ssCtrl foi pra classes.pas no D6.
GOSTEI 0
Rfpsatin
27/02/2004
ae,
não disse q tava comendo barriga rs...
if ( (Shift = [ssCtrl]) and (key=vk_return))then showmessage(´comi barriga feio ;-)´);
não disse q tava comendo barriga rs...
GOSTEI 0