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

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, которое тебе надо написать в оконную функцию.

---

← →
Delphi5.01 ©   (2003-07-31 06:07) [2]

Spasibo!

---

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

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



Память: 0.45 MB
Время: 0.015 c