Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

выпадающее меню в 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


Наверх

Титульная страница Поиск, карта сайта Написать письмо