В WinXP создается прозрачное окно.

← →
Mr. API © (2003-05-15 20:15) [0]

Точнее, оно скопировало на себя фон. При перетаскивании он сохранеятся. Но нужно обыкновенное серое окно. Причем если тот же exeшник запустить под Win98, то все в порядке.

Код такой

uses
windows, messages;

var
WC : TWndClassEx;
MainWnd : HWND;
Msg : TMsg;
hBtn : HWND;

function WindowProc(Wnd: THandle; Msg: Integer;
wParam : Word;
lParam: Longint): Integer; stdcall; export;
begin
WindowProc := 0;
case Msg of
WM_COMMAND :
begin
case loWord(wParam) of
100 : SendMessage(Wnd, WM_CLOSE, 0, 0);
end;
end;
WM_DESTROY :
begin
PostQuitMessage(0);
exit;
end;
end;
WindowProc := DefWindowProc(Wnd, Msg, WParam, LParam);
end;

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 := GetStockObject(LTGRAY_BRUSH);
WC.lpszMenuName := "";
WC.lpszClassName := "TestWndClass";

if RegisterClassEx(WC) = 0 then
Halt(255);

MainWnd := CreateWindowEx(0,"TestWndClass",
"Caption",
WS_OVERLAPPEDWINDOW,
CW_USEDEFAULT, CW_USEDEFAULT,
300, 200, 0, 0,
hInstance, NIL);

hBtn := CreateWindowEx(0, "BUTTON",
"OK", BS_DEFPUSHBUTTON or WS_CHILD or WS_VISIBLE,
110, 125,
75, 25,
MainWnd,
100,
hInstance, NIL);

ShowWindow(MainWnd, CmdShow);

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

← →
Nick Denry © (2003-05-17 19:53) [1]

вместо
> WindowProc := DefWindowProc(Wnd, Msg, WParam, LParam);

надо
else Result:=DefWindowProc
(wnd,msg,wparam,lparam);
end;
End;
и обрабатывай wm_paint,если что... ;-)

Последнее ремя этот вопрос появляется с завидной периодичностью..)

function WindowProc(Wnd: THandle; Msg: Integer;
wParam : {ну никак не Word} LongInt;
lParam: Longint): Integer; stdcall; export;

В WinXP создается прозрачное окно. Найти похожие ветки