Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.10.01;
Скачать: CL | DM;

Вниз

Счетчик   Найти похожие ветки 

 
greengeneral ©   (2006-09-14 10:24) [0]

Как написать счетчик на кол-во раз нажатой Buton1.


 
Джо ©   (2006-09-14 10:28) [1]

type
 TForm1 = class(TForm)
   Button1: TButton;
   procedure FormCreate(Sender: TObject);
   procedure Button1Click(Sender: TObject);
 private
   FCounter: Integer;
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 FCounter := 0
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Inc (FCounter)
end;

end.


 
ЮЮ ©   (2006-09-14 10:29) [2]

в обработчике OnClick Buton1 написать
Buton1.Tag := Buton1.tag + 1;
и не использовать Buton1.Ефп для лругих целей


 
pavel_guzhanov ©   (2006-09-14 10:31) [3]

объяви глобальную переменную n типа Integer.
в обработчике события Button1Click напиши
inc(n);
ShowMessage("На кнопку нажали "+IntToStr(n));

ps. Надеюсь, что типа Integer тебе хватит для подсчета количества нажатий :0))


 
pavel_guzhanov ©   (2006-09-14 10:32) [4]

Пока писал уже 2 ответа появились :0))



Страницы: 1 вся ветка

Текущий архив: 2006.10.01;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.027 c
15-1158138822
term1t
2006-09-13 13:13
2006.10.01
Распространение приложений


15-1157952168
Ega23
2006-09-11 09:22
2006.10.01
С Днём рождения! 11 сентября


15-1157662081
Offtoper
2006-09-08 00:48
2006.10.01
Просто оффтоп


2-1157909809
p314
2006-09-10 21:36
2006.10.01
Типы данных со словом type


2-1158090558
aivar
2006-09-12 23:49
2006.10.01
Что такое контрольные суммы файлов и счем их едят! Спасибо!