Скачать: CL | DM;

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

---

← →
Ega23 ©   (2014-03-18 16:23) [7]

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;

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.037 c