Fórum SOMENTE OS QUE DOMINAM #146931

Criei esta Classe (TMyNode) do tipo (TTreeNode) e implementei algumas coisas nela.

unit Unit2;

interface
uses ComCtrls;
type
TMyNode = class (TTreeNode)
Public
tlink,texto:string;
itag:integer;
constructor criar;
destructor destruir;
end;
implementation

{ TMyNode }

constructor TMyNode.criar;
begin
tlink:=´´;
texto:=´´;
itag:=0;
end;

destructor TMyNode.destruir;
begin

end;
end.

------------------------------------------------------------------------

Agora na Unit 1 Eu programei o seguinte codigo

unit Unit1;

interface

uses
Windows,Unit2, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls;

type
TForm1 = class(TForm)
TreeView1: TTreeView;
procedure FormCreate(Sender: TObject);
procedure TreeView1DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
no : TMyNode;
pai : TTreeNode;
begin

no:=TMyNode.criar;
pai:=TMyNode.criar;
pai:=nil;

no.tlink:=´www.uol.com.br´;
no.texto:=´teste´;
TreeView1.Items.AddChild(pai,no.texto);
end;

procedure TForm1.TreeView1DblClick(Sender: TObject);
begin
ShowMessage ((TreeView1.Selected as TMyNode).tlink);
end;

end.


--------------------------------------------------------------------------



O PROBLEMA É O SEGUINTE, OQUE QUERO FAZER E MOSTRAR O CONTEUDO DE TLINK NO EVENTO DBLCLICK DO TREEVIEW MAIS DA PAU, SERA QUE VCS PODEM ME AJUDAR?





AGRADECO DESDE JA

SEM MAIS: LUIS GUSTAVO DE BRITO