![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
выпадающее меню в TCustomComponent
Вова © (2014-03-18 03:24:00)Есть класс который создан на основе TCustomComponent и представляет из себя ну как типо Memo, в которое выводится текст с помощью TextOut(x, y, s).
а теперь нужно чтобы после символа "." выпадал список с вариантами для выбора, ну и результат выбора вписывался после точки.. ну это ладно.... в TextOut x,y это фактически в символах (строках и колонках), а не в пикселях как я понимаю координаты, таким образом как прикрутить комбобокс к точке ?) я не понимаю где взять координаты, да и как его там нарисовать тоже не очень...
Ega23 (2014-03-18 16:23:00) [1]
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;
Вова (2014-03-18 16:12:00) [2]ну емае, не могу найти, скажите как добавить обработчик события OnClick для CB := TListBox.Create(Self);
Вова (2014-03-18 14:23:00) [3]
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:00) [4]обработчик выбора
Вова (2014-03-18 14:10:00) [5]да но при этом должна быть возможность понять что пользователь в этом списке выбрал
Вова (2014-03-18 14:09:00) [6]Вроде получилось, осталось только понять как сделать чтобы это было не выпадающее меню, а просто список с возможностью скролирования....сам скролл бар не нужно показывать. Или это тогда не комбобокс нужно юзать?
Ega23 (2014-03-18 11:03:00) [7]Посмотри тут
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