Скачать: CL | DM;

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;

---

← →
AleXqwq ©   (2004-06-08 16:26) [2]

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.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c