Текущий архив: 2003.01.13;
Скачать: CL | DM;

Вниз

form2   Найти похожие ветки 

← →
Maksss   (2002-11-24 17:54) [0]

мастера подскажите плыз как создать модальное окно
это почемуто не работает
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.


---

← →
asmith   (2002-11-24 18:07) [1]

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

---

← →
SPeller ©   (2002-11-25 11:30) [2]

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

---

← →
Игорь Шевченко ©   (2002-11-25 12:39) [3]

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


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

---

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

Текущий архив: 2003.01.13;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.018 c