![]() |
|
|
#1
|
|||
|
|||
|
Доброго времени суток, читающий этот форум. Я понимаю что задаю откровенно ламерский вопрос но тем не менее =)
Есть код: Код:
var
Form1: TForm1;
Size: Integer;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Size := 100;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Size:= -1;
Form1.Caption:= Size;
end;Последний раз редактировалось Admin, 26.01.2009 в 21:50. |
|
#2
|
||||
|
||||
|
Код:
Form1.Caption:= inttostr(Size); |
|
#3
|
|||
|
|||
|
Оппа
Буду знать, спасибо =) |