ActiveDelphi

[osmano.queiroz]

Boa noite, pessoal seguinte tenho um treeview como menu principal da minha aplicação, estou chamando cada evento do nodo assim:

procedure TFrmPrincipal.TREMenuClick(Sender: TObject);
var
i: integer;
begin
case TREMenu.Selected.StateIndex of
1:Begin //form pessoas
with DM.Niveis do
begin
TREMenu.Items.Item[1].StateIndex := 1;
close;
SelectSQL.Clear;
SelectSQl.Add('SELECT * FROM TABNIVEL WHERE ID_PESSOA = :pid_PESSOA');
SelectSQl.Add('AND ID_MODULO='+#39+IntToStr(TREMenu.Items[1].StateIndex)+#39);
ParamByName('pid_PESSOA').Value := PId_Usuario;
open;
if dm.Niveis.FieldByName('ID_PESSOA').AsString <> '' then
begin
doAbreForm(TFrmPessoas, FrmPessoas);
TREMenu.Refresh;
end
else
MessageDlg('O usuário:[ ' + PUsuario + ' ] não tem acesso a este módulo', mtInformation, [mbOk], 0);
FrmPrincipal.TREMenu.Items.Item[1].StateIndex := -1;
end;
end;
end;

Estou tentando fazer com que ao teclar a barra de espaço seja chamado este evento.

Já fiz alguns testes mas não consegui.

[rafa.spimenta]

Chame o onclick no evento onkeydown do seu treeview:

[osmano.queiroz]

Resolvido. funcionou certinho.

Obrigado.