PopupMenu and TreeView

← →
saNat (2004-06-08 14:06) [0]

Здравствуйте.
Подскажите пожалуйста, как сделать меню по клику правой клавишей мыши на элементе TreeView? Желательно с маленьким примером?
С уважением, ЕВА

← →
MU © (2004-06-08 14:30) [1]

PopupMenu1 : TPopupMenu;

св-во у TreeView RightClickSelect := true;

....

procedure TForm1.TreeView1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (mbRight = Button) then
PopupMenu1.Popup(X, Y);
end;

procedure TfrmExploreData.TreeViewMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var Node :TTreeNode;
begin

Node := TreeView.GetNodeAt(X,Y);

if Button = mbRight then
begin
Node := tvData.GetNodeAt(X,Y);
if Node <> nil then
begin
Node.Selected := True;
Node.Focused := True;
end
end;
end;

i k etomu component TreeView sviazan s PopupMenu, takim obrazom imeesi menu i element focusirovanii element.
TreeView.Selected.Text;
TreeView.swelected.Level;
i t.d.

uspehov.

PopupMenu and TreeView Найти похожие ветки