1) Это можно сделать через цикл и менять свойство
Font. Цикл можно прописать в таймере и выставить Timer1.Interval:=3000.
2) Можно просто добавить кнопку
BitBtn со своим рисунком (например "Дискета", как в Ворде) и текстом (например "Сохранить").
3) Можно кол-во запусков записывать в реестр и затем считывать его оттуда в
Label.
4)
Цитата:
Как сделать чтоб при открытии формы стир ался txt фаил (c:\text.txt)
|
Код:
var
file: TextFile;
fn: String[80];
begin
if Form1.SaveDialog1.Execute then
fn := 'c:\text.txt';
AssignFile(file, fn);
{$I-}
Reset(file);
writeln(file, '');
CloseFile(file);
Или можно использовать DeleteFile().
Цитата:
а если его нет по заданному пути (c:\text.txt) то форма не как на это
не реагировала (не выдала ни какой ошибки)
|
используй
try..except или
try..finally.
