Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2003.01.06;
Скачать: [xml.tar.bz2];

Вниз

Как добавить контрол?   Найти похожие ветки 

 
Cosmic   (2002-11-16 21:37) [0]

Есть программа (кажись, с этого сайта :))



program winmin;

uses
windows, messages;

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

function WindowProc(wnd:HWND; Msg : Integer; Wparam:Wparam; Lparam:Lparam):Lresult; stdcall;
Begin
case msg of
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

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

RegisterClassEx(wc);

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

MainWnd:=CreateWindowEx (0,"WinMin : Main","Sample",ws_overlappedwindow,xPos,yPos,nWidth,nHeight,0,0,Hinstance,nil);
ShowWindow(MainWnd,CmdShow);

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

end.



1. Надо на созданное окно добавить контрол (ну, скажем, кнопку). Как? И как потом обрабатывать сообщения?
2. Что такое hinstance?


 
Александр Павлов   (2002-11-17 05:23) [1]

1)Добавь строчки выделенные жирным:

program winmin;

uses
windows, messages;

var
...
Button1: Integer;
...

function WindowProc(wnd:HWND; Msg : Integer; Wparam:Wparam; Lparam:Lparam):Lresult; stdcall;
Begin
case msg of
wm_destroy :
Begin
postquitmessage(0);
exit;
Result := 0;
End;
wm_command : begin
if (lParam = Button1) then
MessageBoxA(MainWnd, "Нажата", "Тест", MB_OK);
end


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

...

begin
...
Button1 := CreateWindow("Button", "OK", WS_VISIBLE or WS_CHILD or BS_PUSHLIKE or BS_TEXT,
0, 0, 75, 25, MainWnd, 0, hInstance, nil);

...
ShowWindow(MainWnd,CmdShow);
...
end.

Вместо ShowWindow(MainWnd,CmdShow) желательно использовать UpdateWindow(MainWnd).

2) <CTL>+<F1>


 
Cosmic   (2002-11-17 18:11) [2]

Отлично. А как туда же засунуть меню с парой пунктов (скажем, Shutdown & Exit)?


 
Diamond Cat   (2002-11-18 00:04) [3]

а например почитать хелп по CreateWindow и CreateWindowEx



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

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

Наверх





Память: 0.55 MB
Время: 0.03 c
3-14932
Sergant
2002-12-13 06:31
2003.01.06
Доступ к Firebird


6-15183
Nick N A
2002-10-30 07:57
2003.01.06
TNMPOP3 Прием почты.


1-14986
Anton Tsvilikh
2002-12-23 21:41
2003.01.06
Вид кнопки вверху окна


14-15218
Blondin
2002-12-18 13:49
2003.01.06
Помогите с тряской изображения


14-15306
KidMan
2002-12-13 22:35
2003.01.06
Инсталяшка проги





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский