Fórum Como jogar um valor do treeview para dentro de um edit? #333374
21/11/2006
0
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:
E nao funcionou
ai tentei assim no mesmo evento
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.
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;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;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
Curtir tópico
+ 0
Responder
Posts
21/11/2006
Adrbrusc
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;
Responder
Gostei + 0
22/11/2006
Adriano_servitec
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.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)