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

Вниз

Перевод фокуса на узел TreeView правой кнопкой мыши   Найти похожие ветки 

 
Alexei ©   (2008-06-10 12:29) [0]

При работе с TreeView сложилась такая проблема: сделал RightClickSelect:=true (возможность выбора узла правой кнопкой), но при выборе очередного узла правой кнопкой мыши фокус остаётся на узле, который был выбран до этого, и команды контекстного меню оказываются "привязанными" к узлу, на котором фокус. Перевести фокус получается только при помощи клика левой кнопкой мыши. Подскажите, как при выборе узла правой кнопкой мыши, перевести фокус на выбранный узел, чтоб команды контекстного меню были для него.


 
{RASkov} ©   (2008-06-10 12:42) [1]

У тебя свой потомок от TTreeView? Т.е. ты делаешь свой компонент?
Просто проблема решается и на стандартном TTreeView...
Например так:
procedure TForm1.TreeView1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
var N: TTreeNode;
begin
 N:=TreeView1.GetNodeAt(MousePos.X, MousePos.Y);
 if N<>nil then TreeView1.Selected:=N;
end;



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

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

Наверх





Память: 0.45 MB
Время: 0.007 c
4-1192558662
lock95
2007-10-16 22:17
2008.07.13
Настройка BIOS из программы под Windows


2-1213617270
JS
2008-06-16 15:54
2008.07.13
Font.Style


2-1213274505
Franzy
2008-06-12 16:41
2008.07.13
Try...Except не ловит ошибки ввода/вывода


15-1212330216
Foo Fighters
2008-06-01 18:23
2008.07.13
Скрипт загрузки файла на сервер


15-1211742484
Заинтересованный
2008-05-25 23:08
2008.07.13
Стоимость разработки пакета, аналогичного SynEdit





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский