выпадающее меню в TCustomComponent

← →
Вова (2014-03-18 03:24) [0]

Есть класс который создан на основе TCustomComponent и представляет из себя ну как типо Memo, в которое выводится текст с помощью TextOut(x, y, s).

а теперь нужно чтобы после символа "." выпадал список с вариантами для выбора, ну и результат выбора вписывался после точки.. ну это ладно.... в TextOut x,y это фактически в символах (строках и колонках), а не в пикселях как я понимаю координаты, таким образом как прикрутить комбобокс к точке ?) я не понимаю где взять координаты, да и как его там нарисовать тоже не очень...

← →
Ega23 © (2014-03-18 11:03) [1]

Посмотри тут
http://stackoverflow.com/questions/5465590/auto-append-complete-from-text-file-to-an-edit-box-delphi
и тут
http://msdn.microsoft.com/en-us/library/bb776292%28VS.85%29.aspx

← →
Вова (2014-03-18 14:09) [2]

Вроде получилось, осталось только понять как сделать чтобы это было не выпадающее меню, а просто список с возможностью скролирования....сам скролл бар не нужно показывать. Или это тогда не комбобокс нужно юзать?

← →
Вова (2014-03-18 14:10) [3]

да но при этом должна быть возможность понять что пользователь в этом списке выбрал

← →
Вова (2014-03-18 14:23) [4]

CB := TListBox.Create(Self); CB.Parent:=form1; CB.Left := FGutterWidth + FPos.X * FCharWidth; CB.Top := FPos.Y * FCharHeight; CB.Width := 200; CB.Items.Add("Привет Мир"); CB.Items.Add("Привет Мир 1"); CB.Items.Add("Привет Мир 2"); CB.Items.Add("Привет Мир 3"); CB.Items.Add("Привет Мир 4"); CB.Items.Add("Привет Мир 5"); CB.Height:= CB.ItemHeight*(CB.items.Count+1); CB.Show;

а как обработчик события сделать для такого ЛистБокса?

← →
Вова (2014-03-18 14:23) [5]

обработчик выбора

← →
Вова (2014-03-18 16:12) [6]

ну емае, не могу найти, скажите как добавить обработчик события OnClick для CB := TListBox.Create(Self);

TForm1 = class (TForm) private procedure OnCheckBoxClick(Sender: TObject); end; procedure TForm1.OnCheckBoxClick(Sender: TObject); begin ShowMessage("Foo"); end; ...... cb := TListBox.Create(Self); ... cb.OnClick := OnCheckBoxClick;

выпадающее меню в TCustomComponent Найти похожие ветки