Часы не пашут(((

@aslan1504 · Регистрация: 08.03.2011

Author24 — интернет-сервис помощи студентам

помогите дописать, программа-часы, рисуется на рабочем столе, но предидущее время накладывается на новое, ка сдклать так, чтобы не накладывалсь, а перерисовывало(желательно не обновляя раб стол), кодировал без VCL

Delphi

program Project1;
 
uses
  Windows,  SysUtils, Variants, Classes, Graphics, Controls, Forms,messages,
  Dialogs;
 
{$R *.res}
var
  DeskTop:TCanvas;
  s:string;
 
begin
  Application.Initialize;
  Application.Run;
   while true do
  begin
 
  DeskTop:=TCanvas.Create;
  DeskTop.Handle:=GetDC(0);DeskTop.Brush.Style:=bsClear;
With DeskTop.Font do
Begin
  Color:=clred;
  Size:=85;
  Name:='Mistral';
  Style:=[fsBold];
end;
s:=TimeToStr(Now) ;
if length(s) <>7then
 begin
  DeskTop.TextOut(screen.Width-220,screen.Height-150,s[1]+s[2]+s[3]+s[4]+s[5]);
  ReleaseDC(0, DeskTop.handle);
  DeskTop.Free;
  sleep(500);
 
 end
 else
 begin
 DeskTop.TextOut(screen.Width-300,screen.Height-150,s[1]+s[2]+s[3]+s[4]);
  ReleaseDC(0, DeskTop.handle);
  DeskTop.Free;
  sleep(500);
 
 end;
end;
 
end.

@anonimus · 24.04.2011, 20:47

это у тебя из-за

Delphi

1	DeskTop.Brush.Style:=bsClear;

	24.04.2011, 20:47