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

Создание главной формы с помощью 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]

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

---

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

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



Память: 0.46 MB
Время: 0.006 c