Mudar o setfocus de um treeview para dentro de um edit?

Delphi

22/08/2006

Olah pessoal, gostaria de saber como faço para jogar o foco de um treeview para dentro de um edit.text

tentei este codigo, mais nao esta jogando o foco pra dentro do edit
[color=red:feed3873aa]O codigo esta no evento onchange do treeview[/color:feed3873aa]
procedure
TForm3.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
dm.ibtable2.Edit;
if TreeView1.Selected.Level = 1 then
   edit1.text:=TreeView1.Selected.Text;
   if Edit1.Visible and Edit1.Enabled then
      Edit1.Setfocus;
end;


Tem algo errado no codigo, ou precisa de algo mais?
A linha que nao esta obedeçendo o comando
[b:feed3873aa]if Edit1.Visible and Edit1.Enabled then
Edit1.Setfocus;[/b:feed3873aa]

Obrigado
Adriano.


Adriano_servitec

Adriano_servitec

Curtidas 0

Respostas

Jonas_giron

Jonas_giron

22/08/2006

Coloca essa função no OnDblClick do TreeView que dai vai funcionar, quando der dois cliques ele vai setar no edit.


GOSTEI 0
Adriano_servitec

Adriano_servitec

22/08/2006

Meu nao tinha pensado nisso.

Mais preferi usar o evento onclick do treeview

Valeu muito obrigado.


GOSTEI 0
POSTAR