Question

delphi label.caption显示不出来

procedure TForm1.Timer1Timer(Sender: TObject);
begin
DateTimeToString(XQ,'ddd',date); //XQ是string，代表星期
Label1.Caption:='现在是'+DateTimeToStr(Now) + XQ;
end;
这样运行没有错误，但是就是Label1没有显示任何东西，Label1的设置AutoSize：=False，Transparent：=True
没有分了，高手谅解
一楼的高手您好，你说的都试过还是不行，还是显示不出来，我试过用Btn的CLICK事件调用上面的显示，就可以显示出来，是不是我的工程中Timer出问题了？有没有什么方法可以解决？我想在Form上显示当前具体时间
Timer1.enable已经为true
改成Formcreate调用也不行

真的很感谢您这么乐于助人，问题解决了，原因应该是创建Timer1Timer时是直接输入程序，这次用双击Timer进入就可以

Answer 1

下面是我的测试程序，可以正常运行：

仅在Form上放一个Timer和Label。

试着重新放一个新的label，不修改任何属性

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
Label1: TLabel;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
var
XQ:string;
begin
DateTimeToString(XQ,'ddd',date); //XQ是string，代表星期
Label1.Caption:='现在是'+DateTimeToStr(Now) + XQ;
end;

end.

Answer 2

Timer1.enable:=true;