Текущий архив: 2004.06.20;
Скачать: 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 вся ветка
Текущий архив: 2004.06.20;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.028 c
