Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

LISTBOX & PageControl

MJH © (2002-01-28 02:44:00)
Какими мессагами работать с итемками в ЛистБоксе?
Как сделать PageControl (хотя бы одну закладку)?

Evgeny (2002-02-01 09:59:00) [1]
Важна сама идея и направление в какую сторону двигаться. А реализация... Каждый делает как может или как ему больше нравится.

MJH (2002-02-01 01:54:00) [2]
сделал уже. только не как в том примере. там используется
CreatePropertySheetPageA, результаты которой думаю тебе известны - все окошки типа "ОК Отмена Применить"
Мне надо было сделать TabControl. И я его сделал

Evgeny (2002-01-30 08:27:00) [3]
С ассемблером совсем плохо? Там примеры очень подробные и с комментариями. На Pascal перевести очень легко. Если хочешь рабочий пример пиши на адрес: DSoft@sibovk.omskcity.com

MJH (2002-01-29 17:23:00) [4]
БОльше никто ничего не знает?

Evgeny (2002-01-29 07:03:00) [5]
Если не боишься ассемблера, то есть такой сайт:
www.wasm.zite.ru\source\propwiz.zip
скачай этот файл. Там внутри два прекрасных примера. Переделать на Pascal, проблем не составит, но если все-таки, то задавай вопрос.
P.S. Да. И в будущем больше доверяй поисковым сайтам. По крайней мере готовые примеры ты найдешь гораздо больше и быстрее.

MBo (2002-01-28 13:47:00) [6]
насчет ListBox -в SDK Help
LB_*

MJH (2002-01-28 13:40:00) [7]
а если я правильно понял то данная конференция включает в себя вопросы по винАПИ,а не по компонентам.
придётся чуть переиначить вопрос:
КАК СРЕДСТВАМИ ВИНАПИ РАБОТАТЬ С САБЖЕМ?

Ghost. (2002-01-28 09:55:00) [8]
// Добавить закладку
procedure TMainForm.AddPageButtonClick(Sender: TObject);
begin
with TabbedNotebook1 do
Pages.Add(Format("Page %d",[Pages.Count-1]));
end;

// вставить элемент управления (control) в страницу
procedure TMainForm.AddControlButtonClick(Sender: TObject);
var
L: TListBox;
P: TWinControl;
begin
L := TListBox.Create(Self);
with TabbedNotebook1 do
begin
P := Pages.Objects[PageIndex] as TWinControl;
L.Parent := P;
L.SetBounds(10, 10, 100, 100);
// вставка заголовка страници в edit control//
// You don"t have to perform this step. //
L.Items.Add(TTabPage(P).Caption);
end;
end;

Если я правильно понял

Наверх

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