Помогите TreeView и цифровые значения

[KWN, lnc]

вообщем идея такова.
там где цыфры выпадает PopupMenu2 сделаный код ниже работает превосходно, минус в том что он допускает только длину в 10 знаков а у меня их больше! помогите!

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  MyInt:integer;
begin
if Button=mbright then begin
 if (sender = TreeView1) and (TTreeView(sender).Selected<>nil) then begin
  TTreeView(sender).Selected:=TTreeView(sender).GetNodeAt(x,y);

   if tryStrToInt(TTreeView(sender).Selected.text,MyInt) then begin
   PopupMenu2.Popup(Mouse.CursorPos.X,Mouse.CursorPos.y);
   end;

 end;
end;
end;

[Evgeniy26]

Поменяйте TryStrToInt на TryStrToFloat. Перебор возможно.

[KWN, lnc]

Evgeniy26
неа выделяет красным
if TryStrToFloat(TTreeView(sender).Sel ec ted.text,MyInt) then begin

[Evgeniy26]

Дак MyInt замениете на вещественный тип.

[evg_m]

используйте свойство Data специально предназначеное для хранения пользовательской информации
При создании пунктов treeview

node.data:=1 //для пунктов требующих меню
node.data:=0; //там где меню не  нужно

if TTreeView(sender).Selected.Data=1 then
begin
PopupMenu2.Popup(Mouse.CursorPos.X, Mouse.CursorPos.y)

[KWN, lnc]

evg_m
а куда это писать? sorry
node.data:=1
node.data:=0;

Объясните пожалуйста, куда это вписпть?

node.data:=1
node.data:=0;

[evg_m]

при создании пунктов
node:=treeview.additem(x,'txt0345') ;
node.data:=1;

[KWN, lnc]

evg_m

объясни пожалуйста!! куда это писать???

node:=treeview.additem(x,'txt0345') ;
node.data:=1;

[Stilet]

куда это писать???

А собственно где ты хочешь чтоб это выполнилось?

[KWN, lnc]

Stilet у меня выделяет красным. а исходник можно? пожалуйста!!!

evg_m или Stilet ну объясните чайнику! плиззз!!! заранее спасибо!