| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Счетчик [D7]

greengeneral ©   (2006-09-14 10:24:00) 

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

---

pavel_guzhanov   (2006-09-14 10:32:00) [1]

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

---

pavel_guzhanov   (2006-09-14 10:31:00) [2]

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

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

---

ЮЮ   (2006-09-14 10:29:00) [3]

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

---

Джо   (2006-09-14 10:28:00) [4]

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.


---

Наверх