Как правильно рисовать на экране???

[vovken1997]

Всем привет!!!
В нете нашёл простенький исходник, показывающий как вывести на экран круг. Я немного изменил его для вывода текста, а именно времени. Но получается так что у меня накладыватся одно время на другое. Тоесть я вывожу время, затем не стирается приведущее и на него сразу же накладывается новое. Как изменить чтоб старое время стиралось, а новое выводилось???

procedure TForm1.Timer1Timer(Sender: TObject);
var
desctop:Tcanvas;
begin
desctop:=TCanvas.create;
 DescTop.Handle:=GetDC(0);
  desctop.Brush.Style:=bsClear;
  desctop.Font.Color:=clBlue;
  desctop.Font.Size:=15;
  desctop.Font.Name:='MS Sans Serif';
  desctop.Font.Style:=[fsBold];


  descTop.TextOut(800,1000,'Время: '+TimeToStr(sysutils.Time));
  ReleaseDC(0,DescTop.Handle);

  descTop.Free;
end;

[Пепел Феникса]

я бы создавал прозрачное для мыши окно с прозрачностью по маске.

[vovken1997]

Я бы хотел в дальнейшем вывести эту информацию туда где вводят пароль и выбирают пользователя. Тут если я правильно понимаю службы нужны??? И как всё таки стирать информацию, а потом выводить? Может пробелами сделать вид ,что ничего нет?

[vovken1997]

Люди!...
Подскажите пожайлуста!

[Пепел Феникса]

пробел как бы не рисуется.
тут можно попробовать заставить перерисоваться экран.

[vovken1997]

А как это програмно сделать???

[s-andriano]

Принудительная перерисовка - InvalidateRect.

[Miha85193]

Попробуйте нарисовать прямоугольник (по размеру региона) перед выводом времени, закрашенный цветом очистки.