Simples, eu acho !

Delphi

27/05/2003

Estou usando TABCONTROL no meu form, e estou querendo trocar o TAB pelo ENTER.Estou usando o seguinte código:
No evento do form OnKeyPress.
[color=red:0e9c9c0f49] if key= #13 then
begin
Perform (CM_DialogKey, VK_TAB, 0);
key:=0;
end;[/color:0e9c9c0f49]
Só que na segunda paleta do TABCONTROL quando dou enter ele volta para primeira e grava o registro corrente, no restante funciona, o que será isto ?
Valeu.


Jeanfiamoncini

Jeanfiamoncini

Curtidas 0

Respostas

Wallacest

Wallacest

27/05/2003

tenta

if key=VK_Return then
Perform(WM_Nextdlgctl,0,0

so q no evento OnKeyDown do form e nao do TAB e coloque a propriedade do KeyPreview no form tb como TRUE


GOSTEI 0
POSTAR