Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];

Вниз

выделение правой кнопкой в treeview   Найти похожие ветки 

 
Сергей Петров   (2004-10-14 04:59) [0]

Есть treeview. Хочу сделать выпадающее меню, появляющееся при клике правой кнопкой мыши, в котором будет пункт "удалить".

Проблема в том, что при клике правой кнопкой treeview.selected не меняется.

treeview.rightclickselect := true не помогает.

видимо, это связано с потерей treeview фокуса.

Как победить?


 
Babay ©   (2004-10-14 05:42) [1]

Попробуйте сделать так

procedure TForm1.TreeView1ContextPopup(Sender: TObject; MousePos: TPoint;
 var Handled: Boolean);
var
  tempNode: TTreeNode;
begin
tempNode := (Sender as TTreeView).GetNodeAt(MousePos.X, MousePos.Y);
  if tempNode <> nil then
    TTreeView(Sender).Selected := tempNode;
end;


 
BillyJeans   (2004-10-14 08:59) [2]

procedure TMF.TreeMouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
var tmp: TTreeNode;
begin
 tmp := Tree.GetNodeAt(X,Y);
 if tmp <> nil then tmp.Selected:= true;
 TreeClick(Sender);
end;



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

Форум: "Основная";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.041 c
14-1097767576
Поручик
2004-10-14 19:26
2004.10.31
FooBar2000


3-1096542714
UnDISCOvery
2004-09-30 15:11
2004.10.31
БД Access - "Обновление невозможно; установлена блокировка"


3-1096718489
Denniro
2004-10-02 16:01
2004.10.31
Примеры работы с MS-SQL


3-1096888673
zorik
2004-10-04 15:17
2004.10.31
Визуальное отображение структуры базы Firebird


14-1097669905
Nikolay M.
2004-10-13 16:18
2004.10.31
Стоматология в Москве - ?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский