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

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

Как поместить календарь на форму? [D6]

Shc ©   (2004-06-01 11:57:00) 

Здравствуйте мастаки. Подскажите, пожалуйста, как можно поместить
на форму календарь (стандартный МикроСофта).
Можно ли поместить Delphi VCL календарь?
Ну и ес-но все это через API

---

shc   (2004-06-02 18:06:00) [1]

Спасибо

---

NAlexey   (2004-06-01 16:06:00) [2]


procedure TForm1.Button1Click(Sender: TObject);
begin  
 InitCommonControl(ICC_DATE_CLASSES);
 hCalendar := CreateWindowEx(0, 'SysMonthCal32' , nil, WS_BORDER or WS_VISIBLE or
   WS_CHILD or DTS_LONGDATEFORMAT, 5, 5, 200, 160, Self.Handle, 0, HInstance, nil);
end;


---

Stany   (2004-06-01 14:59:00) [3]

VCL и API лучше помногу не совмещать, а календарь взять либо VCLевый (броском компонента на форму) или написать самому на API.

---

Наверх