Вопрос № 41841: В вопросе 41840 допущена неточность.
Создаю с использованием Delphi 7 простейшее оконное приложение (черный фон на клиентской части). Проблема заключается в том, что при перемещении других окон поверх данного окна, его НЕклиентская часть (бо...
Вопрос № 41.841
В вопросе 41840 допущена неточность.
Создаю с использованием Delphi 7 простейшее оконное приложение (черный фон на клиентской части). Проблема заключается в том, что при перемещении других окон поверх данного окна, его НЕклиентская часть (бордюры, загаловки, кнопки) не перерисовывается. Привожу код приложения
Приложение:
Отправлен: 02.05.2006, 06:00
Вопрос задал: Fer_Vamp (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Решетник Д
Здравствуйте, Fer_Vamp!
Вот переделанный Ваш код
function WndProc(Wnd:HWND;uMsg,wParam:word;lParam:longint):longint;stdcall;
var
Ps:TPaintStruct;
DC:HDC;
begin
case uMsg of
WM_PAINT:
begin
DC:=BeginPaint(Wnd,Ps);
FillRect(DC,Ps.rcPaint,GetStockObject(BLACK_BRUSH));
EndPaint(Wnd,Ps);
end;
WM_DESTROY:
begin
PostQuitMessage(0);
end;
end;
result:=DefWindowProc(Wnd,uMsg,wParam,lParam);
end;
--------- Жизнь коротка, чтобы писать на ассемблере
Ответ отправил: Решетник Д (статус: 4-ый класс)
Ответ отправлен: 02.05.2006, 19:06 Оценка за ответ: 4
