Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.04;
Скачать: CL | DM;

Вниз

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

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

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


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

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


 
MMF ©   (2003-08-21 16:47) [2]

Подмени оконную процедуру, что-то вроде:
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;



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

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

Наверх




Память: 0.47 MB
Время: 0.075 c
1-10836
S.M.
2003-08-21 14:46
2003.09.04
Users


14-10957
alekcey75
2003-08-15 17:54
2003.09.04
элипс


1-10691
frost
2003-08-21 08:19
2003.09.04
TreeView и текст связанный с каждым узлом дерева


1-10790
SergP
2003-08-22 11:01
2003.09.04
Как запустить процедуру B после завершения процедуры A


14-10929
race1
2003-08-16 11:50
2003.09.04
build