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

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

Fomra na chistom API

Delphi5.01 ©   (2003-07-31 05:42:00) 

Dobroe vrema sutok.

Mena interesuet vopros sozdania form, i vizuaalnix komponentov na chistom API, tipa nashol infu kak sozdat progu:

var WindowClass: TWndClass;
Instance: HWnd;
Handle: HWnd;
Msg: TMsg;

begin
instance:=GetModuleHandle(nil);
with WindowClass do
begin
Style:=CS_HRedraw or CS_VRedraw;
Lpfnwndproc:=@windowproc;
Hinstance:=Instance;
HbrBackground:=color_btnface;
LpszClassName:="DXF";
HCursor:=LoadCursor(0,IDC_ARROW);
end;
RegisterClass(WindowClass);
Handle:=CreateWindowEx(0,"DXF","API Programe",WS_POPUP,5,5,100,100,0,0,instance,nil);
UpdateWindow(Handle);
while True do
begin
TranslateMessage(msg);
DispatchMessage(msg);
// Application.ProcessMessages;
end;

Ona to zapustilas no vot vizualno ne vidna, ocuda vitekaet vopros kak mojno sozdat vizualnuiu formu, nu i xotabi Button na nom, esli mojno svoi primerchik, ili ispravte moi.
Spasibo.

---

Delphi5.01   (2003-07-31 06:07:00) [1]

Spasibo!

---

Son!K   (2003-07-31 05:53:00) [2]

показать забыл ShowWindow( Haldle, тут вроде способ вывода окна, посмотри в справочнике );, это перед апдэйтом окна.

А компаненты создаёшь так же как окно ток класс пиши BUTTON и т.д. и создаешь на WM_CREATE, которое тебе надо написать в оконную функцию.

---

Наверх