Перерисовка окна

← →
Злодей © (2003-08-21 16:12) [0]

Здраствуйте. У меня трабл. Мне нужно поверх активного окна (не моё приложение) вывести текст (время). Но при выводе текст мерцает. Что-то подсказывает, что надо ловить onPaint этого окна, но пока силёнок маловато, а очень надобно. Помогите, плз...

← →
KSergey © (2003-08-21 16:21) [1]

Ну сделать свое окно - и его на самый верх покласть. И ничего мерцать не будет (возможно, смотря как сделать ;).

Подмени оконную процедуру, что-то вроде:
OldProc:= Pointer(GetWindowLong(Wnd,GWL_WNDPROC));
SetWindowLong(WND, GWL_WNDPROC, Integer(@NewProc));
SendMessage(WND, WM_Paint, 0, 0);

function NewProc(Handle: hWND; Msg, wParam, lParam : LongInt): LongInt; stdcall;
begin
Result:=CallWindowProc(OldProc, Handle, Msg, wParam, lParam);
if Handle=StatusWnd Then
Case MSG of
WM_PAINT : RefreshText();
end;
end;

procedure RefreshText();
var
StatusRect, TextRect: TRect;
Text: string;
begin
Text="Гы-гы";
StatusDC:=GetDC(WND);
GetClientRect(WND, StatusRect);
SetTextColor(StatusDC, clBlue);
SetBkColor(StatusDC, clSilver);
DrawText(StatusDC, Pchar(Text), -1, TextRect, DT_RIGHT);
ReleaseDC(WND, StatusDC);
end;

Перерисовка окна Найти похожие ветки