怎样使listbox 中的信息按时间自动变化 wpf
1个回答
展开全部
//拖个timer,拖个listbox
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
ListBox1: TListBox;
tmr1: TTimer;
procedure tmr1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.tmr1Timer(Sender: TObject);
begin
//写你的数据来源。
ListBox1.Items.Add(FormatDateTime('yyyy-MM-dd HH:mm:ss',now));
//不清的话运行久了会出问题的吧。
if ListBox1.Items.Count>10 then
ListBox1.Clear;
//把这堆扔到线程里,主进程更安全,
//怕程序不反映可以加下面这句话,简单的话有没有一个样。
Application.ProcessMessages;
end;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
ListBox1: TListBox;
tmr1: TTimer;
procedure tmr1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.tmr1Timer(Sender: TObject);
begin
//写你的数据来源。
ListBox1.Items.Add(FormatDateTime('yyyy-MM-dd HH:mm:ss',now));
//不清的话运行久了会出问题的吧。
if ListBox1.Items.Count>10 then
ListBox1.Clear;
//把这堆扔到线程里,主进程更安全,
//怕程序不反映可以加下面这句话,简单的话有没有一个样。
Application.ProcessMessages;
end;
end.
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询