Форум: "WinAPI";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "WinAPI";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c