Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];




Вниз

Создание главной формы с помощью WinApi 


Семён   (2001-11-10 09:36) [0]

Научите создавать простое приложение полностью на WinApi, Пожалуйста!!!!!



Ajax   (2001-11-10 16:07) [1]

program winmin;

uses windows, messages;

const idb_main = 10;

var wc : TWndClassEx;
MainWnd : HWND;
Mesg : TMsg;
btn : HWND;

function WindowProc(wnd:HWND; Msg : Integer; Wparam:Wparam; Lparam:Lparam):Lresult; stdcall;
var nCode, ctrlID : word;
Begin
case msg of
wm_command :
Begin
nCode:=hiWord(wParam);
ctrlID:=loWord(wParam);
case ctrlID of
idb_main : begin

end;
end;
End;
wm_destroy :
Begin
postquitmessage(0); exit;
Result:=0;
End;

else Result:=DefWindowProc(wnd,msg,wparam,lparam);
end;

End;

var xPos,yPos,nWidth,nHeight : Integer;

begin
wc.cbSize:=sizeof(wc);
wc.style:=cs_hredraw or cs_vredraw;
wc.lpfnWndProc:=@WindowProc;
wc.cbClsExtra:=0;
wc.cbWndExtra:=0;
wc.hInstance:=HInstance;
wc.hIcon:=LoadIcon(0,idi_application);
wc.hCursor:=LoadCursor(0,idc_arrow);
wc.hbrBackground:=COLOR_BTNFACE+1;
wc.lpszMenuName:=nil;
wc.lpszClassName:="WndClass1";

RegisterClassEx(wc);

xPos:=100;
yPos:=150;
nWidth:=400;
nHeight:=250;


MainWnd:=CreateWindowEx(0,"WndClass1",
"Caption",
ws_overlappedwindow,
xPos,yPos,nWidth,nHeight,0,0,
Hinstance,nil);

btn:=CreateWindowEx(0,"button","name",bs_pushbutton or ws_child or ws_visible,
10,10,75,25,mainWnd,idb_main,hInstance,nil);

ShowWindow(MainWnd,CmdShow);

While GetMessage(Mesg,0,0,0) do
begin
TranslateMessage(Mesg);
DispatchMessage(Mesg);
end;

end.



BorisMor   (2001-11-10 17:48) [2]

Ну а мне почемуто больше нравится так ;)

uses
windows,
messages,
kol;

var
Form,btn:pControl;

begin
Applrt := NewApplet("Caption");
Form := NewForm(Applet,"Caption");
btn := NewButton(Form,"button");
run(Applet);
end.

Результат тот же, а писать меньше



Иван Шихалев   (2001-11-10 19:19) [3]

to BorisMor

А причем тут WinAPI?



BorisMor   (2001-11-10 21:52) [4]

Согласен. Не причем.
Но цитируя себя : "Результат тот же, а писать меньше"



Anatoly Podgoretsky   (2001-11-10 22:50) [5]

А Семен не просил "писать меньше"



BorisMor   (2001-11-10 23:01) [6]

ну хорошо : будем считать что это был флейм :)




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.018 c
1-42444           Brand                 2001-12-24 00:54  2002.01.14  
Gif на форме


1-42481           Phisio                2001-12-25 15:39  2002.01.14  
Как обработать нажатие правой кнопки мыши


1-42513           Aleksey_K             2001-12-25 14:19  2002.01.14  
Help !!!


1-42436           Yakudza               2001-12-24 15:02  2002.01.14  
Редактор SQL запросов.


4-42597           Begemoth              2001-11-12 16:08  2002.01.14  
Можно ли с помощью API узнать имя локального компьютера?