CreateDialogIndirect

← →
Ev_genus © (2002-10-21 22:16) [0]

Как правильно делать диалоги. Я тут, читая хелп написал такую штуку. Где тут ошибка. При запуске процедуры выбрасывает ощибку.

type
TFOpenDialog=class
public
FileName:String;
function Execute:boolean;
end;

....

OpenFileDialog:=TFOpenDialog.Create;
OpenFileDialog.Execute;
....

function TFOpenDialog.Execute:boolean;
var
hDWnd: HWnd;

function WindowProc (Window : HWnd; Message, WParam : Word; LParam : LongInt) : LongInt; stdcall;
begin
case Message of
wm_KeyUp: SendMessage(hDWnd, wm_close, 0, 0);
else WindowProc := DefWindowProc (Window, Message, WParam, LParam);
end;
end;

var
DLGT:DLGTEMPLATE;
Message: TMsg;
begin
with DLGT do begin
style:=DS_MODALFRAME or WS_POPUP or WS_VISIBLE or WS_CAPTION or WS_SYSMENU;
dwExtendedStyle:=WS_EX_TOPMOST;
x:=100;
y:=100;
cx:=150;
cy:=50;
end;

hDWnd:=CreateDialogIndirect(HInstance, DLGT, 0, @WindowProc);

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

← →
apay © (2002-10-22 10:15) [1]

1. вынеси WindowProc из TFOpenDialog.Execute
2. function WindowProc ( Window: HWnd; Message:UINT, WParam, LParam: LongInt ): LongInt; stdcall;
все таки пишешь под win32
3. вторых, DLGT.cdit кто за тебя инициализировать будет?
4. вместо SendMessage(hDWnd, wm_close, 0, 0);
используй PostMessame( hDWnd, WM_SYSCOMMAND, SC_CLOSE, 0 );
с wm_close иногда бывают заморочки

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