请教一个问题!如何在主程序的caption属性中动态加入如：当前用户：管理员 登录时间：2001-01-01 13:24

Question

任务栏
Application.Title := '...';
主窗体
主窗体.Caption := '...';

Answer 1

有问题吗？在主窗的formshow里写
Caption := '........';
当然登录时间要你自己取，系统时间就可以了吧，至于登录人也是一样，不知道是系统登录人还是程序使用人，你应该有个窗体用来登录的吧。

Answer 2

在你想改变的地方加上mainfrm.caption:=mainfrm.caption+'当前用户管理员 登陆时间';

Answer 3

在任何地方均可：任务栏
Application.Title := '...';
主窗体
主窗体.Caption := '...';

Answer 4

在任何地方均可：任务栏
Application.Title := '...';
主窗体
主窗体.Caption := '...';

Answer 5

procedure TForm1.Timer1Timer(Sender: TObject);
begin    
Form1.Caption :='当前用户：'+edit1.text +'  登录时间：'+ DateTimetoStr(Now);//其中edit1.text是登录的用户
end;