52 lines
883 B
ObjectPascal
52 lines
883 B
ObjectPascal
unit UnitInfo;
|
|
|
|
// afiche une info dans le TCO
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, ExtCtrls, StdCtrls;
|
|
|
|
type
|
|
TFormInfo = class(TForm)
|
|
Timerinfo: TTimer;
|
|
LabelInfo: TLabel;
|
|
procedure TimerinfoTimer(Sender: TObject);
|
|
procedure FormActivate(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
private
|
|
{ Déclarations privées }
|
|
public
|
|
{ Déclarations publiques }
|
|
end;
|
|
|
|
var
|
|
FormInfo: TFormInfo;
|
|
TickInfo : integer;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TFormInfo.TimerinfoTimer(Sender: TObject);
|
|
begin
|
|
if TickInfo>0 then
|
|
begin
|
|
dec(TickInfo);
|
|
if TickInfo=0 then close;
|
|
end;
|
|
end;
|
|
|
|
procedure TFormInfo.FormActivate(Sender: TObject);
|
|
begin
|
|
TickInfo:=5;
|
|
end;
|
|
|
|
procedure TFormInfo.FormCreate(Sender: TObject);
|
|
begin
|
|
labelInfo.Width:=formInfo.Width-20;
|
|
end;
|
|
|
|
end.
|