Como jogar um valor do treeview para dentro de um edit?

Delphi

21/11/2006

Pessoal, mais uma vez estou em duvidas e nao consigo fazer esse codigo funcionar;
Tentei jogar um valor que esta dentro de um treeview, em um edit assim:
No evento onclick do treeview fiz os seguintes codigos:
if TreeView1.Selected.Level = 1 then
   edit1.text:=TreeView1.Selected.Text;
   if Edit1.Visible and Edit1.Enabled then
      Edit1.Setfocus;
E nao funcionou
ai tentei assim no mesmo evento
if TreeView1.Items.Item[1].Selected = true then
edit1.text:=TreeView1.Selected.Text;
   if Edit1.Visible and Edit1.Enabled then
      Edit1.Setfocus;
E tambem nao funcionou.

Alguem sabe como jogar o valor de um subitem de um treeview dentro de um edit?

[b:40cbdf4c08]Nota: Esse treeview esta trazendo valores de uma tabela[/b:40cbdf4c08]

Grato a ajuda de todos
Adriano.


Adriano_servitec

Adriano_servitec

Curtidas 0

Respostas

Adrbrusc

Adrbrusc

21/11/2006

Faça o seguinte no evento OnMouseDown do seu treeview coloque o código abaixo:

procedure TForm1.tvTreeViewMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  HitTest : THitTests;
  tnSelNode: TTreeNode;
begin
  screen.Cursor := crHourGlass;
  tvTreeView.Items.BeginUpdate;

  HitTest := tvTreeView.GetHitTestInfoAt(X,Y);

  if (htOnLabel in HitTest) then
   begin
     tnSelNode := tvTreeView.GetNodeAt( X, Y );

     edit1.text := tnSelNode.Text;
   end;

  tvTreeView.Items.EndUpdate;
  Screen.Cursor := crDefault;

end;



GOSTEI 0
Adriano_servitec

Adriano_servitec

21/11/2006

Faça o seguinte no evento OnMouseDown do seu treeview coloque o código abaixo: 
procedure TForm1.tvTreeViewMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  HitTest : THitTests;
  tnSelNode: TTreeNode;
begin
  screen.Cursor := crHourGlass;
  tvTreeView.Items.BeginUpdate;

  HitTest := tvTreeView.GetHitTestInfoAt(X,Y);

  if (htOnLabel in HitTest) then
   begin
     tnSelNode := tvTreeView.GetNodeAt( X, Y );

     edit1.text := tnSelNode.Text;
   end;

  tvTreeView.Items.EndUpdate;
  Screen.Cursor := crDefault;

end;


Muito bom, valeu o codigo amigo [b:e3765cc40c]adrbrusc[/b:e3765cc40c] funcionou direitinho.


GOSTEI 0
POSTAR