Главная страница
    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.44 MB
Время: 0.007 c
3-1201969179
Lamer666
2008-02-02 19:19
2008.07.13
Записи ADOQuery


15-1211878467
ekto
2008-05-27 12:54
2008.07.13
NASM


2-1213386637
MaryM
2008-06-13 23:50
2008.07.13
SynEdit и Delphi 2007


15-1211909535
Ega23
2008-05-27 21:32
2008.07.13
Чем читать DJVU-файлы?


3-1201857058
Son_of_Morning
2008-02-01 12:10
2008.07.13
Помогите определится с выбором СУБД





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