Главная страница
    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.45 MB
Время: 0.028 c
1-1097932201
TUX
2004-10-16 17:10
2004.10.31
Свой Tool Bar??????????


14-1097471289
Skier
2004-10-11 09:08
2004.10.31
9/11 по Фаренгейту


9-1088349524
NightFire
2004-06-27 19:18
2004.10.31
Help


1-1098178915
Mishenka
2004-10-19 13:41
2004.10.31
Sender в MenuItem


14-1097482918
ORMADA
2004-10-11 12:21
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский