不用把label设成透明的属性,

解决方案 »

  1.   

    因为窗体是透明的,如果label不透明,那么有字的地方会有一个背景条,和背景溶不到一起阿
      

  2.   

    asp_boy你是怎么试的,告诉我好吗?
      

  3.   

    应该不是lable的问题,而是透明窗体重画,造成资源紧张,从而刷新慢而已,在win2000下也许会好点
      

  4.   

    我就是在Win200下阿,而且我的内存256M,PIII800阿
      

  5.   

    procedure TFmCurrentDataTime.FormCreate(Sender: TObject);
    var
      rHrgn : Hrgn;
    begin
      rHrgn := CreateEllipticRgn(20,30,Width - 20,Height - 20);
      SetWindowRgn(handle,rHrgn,True);
    end;procedure TFmCurrentDataTime.CreateParams(var Params: TCreateParams);
    begin
      inherited CreateParams(Params);
        Params.ExStyle := WS_EX_TRANSPARENT;end;procedure TMainForm.N55Click(Sender: TObject);
    begin
      FmCurrentDataTime := TFmCurrentDataTime.Create(Self);
      try
        FmCurrentDataTime.lbDateTime.Caption := CurrentDateTimeStr;
        FmCurrentDataTime.ShowModal;
      finally
        FmCurrentDataTime.Free;
      end;
    end;procedure TFmCurrentDataTime.Timer1Timer(Sender: TObject);
    begin
      Cursor := crDefault;
      lbDateTime.Caption := MainForm.CurrentDateTimeStr;
      MainForm.StatusLine.Panels[0].Text := MainForm.CurrentDateTimeStr;
      Application.ProcessMessages;
      Cursor := crDefault;
    end;你们是怎么试的阿,能详细说一下吗?