Fomra na chistom API

← →
Delphi5.01 © (2003-07-31 05:42) [0]

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.

← →
Son!K © (2003-07-31 05:53) [1]

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

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

Spasibo!

Fomra na chistom API Найти похожие ветки