| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

form2 [D5, Win95/98, Win2k]

Maksss ©   (2002-11-24 17:54:00) 

мастера подскажите плыз как создать модальное окно
это почемуто не работает
program A;

uses
Windows,
Messages;

var
WndClass:TWndClass;
form,form2But:Hwnd;

function WndProc(Wnd:HWND;Message:Uint;wParam:DWord;lParam:Longint):Longint;stdcall;
begin
case Message of
$0010 : begin
PostQuitMessage(0);
Result:=0;
end;
WM_command : begin
form:=CreateWindowEx(0,WndClass.lpszClassName,"form2",WS_CHILD+WS_TABSTOP+WS_TILED+WS_VISIBLE+WS_CLIPCHILDREN,500,500,100,200,0,0,hInstance,nil);

end;
else
Result:=DefWindowProc(Wnd,Message,wParam,lParam);
end;
end;
begin
WndClass.style:=CS_HREDRAW+CS_VREDRAW+CS_PARENTDC;
WndClass.hInstance:=HInstance;
WndClass.lpfnWndProc:=@WndProc;
WndClass.lpszClassName:="WndClass";
RegisterClass(WndClass);


form:=CreateWindowEx(0,WndClass.lpszClassName,"form1",WS_CHILD+WS_TABSTOP+WS_TILED+WS_VISIBLE+WS_CLIPCHILDREN,500,500,100,200,0,0,hInstance,nil);

but := CreateWindowEx(WS_EX_CLIENTEDGE,"button","Send",WS_CHILD+WS_TABSTOP+WS_VISIBLE,
360,151,90,25,form,0,hInstance,nil);

while GetMessage(Msg,0,0,0) do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end.


---

Игорь Шевченко   (2002-11-25 12:39:00) [1]

> Модальное окно создается функцией CreateDialog


Модальное окно создается функцией DialogBox

---

SPeller   (2002-11-25 11:30:00) [2]

При создании модального окна делаешь его владельцем первое окно и первому же окну ставишь Enabled=False

---

asmith   (2002-11-24 18:07:00) [3]

Модальное окно создается функцией CreateDialog

---

Наверх