Скачать: CL | DM;

button! button! button! button! button!   Найти похожие ветки 

← →
hatchy ©   (2002-12-20 11:41) [0]

Люди как мне сделать чтобы если первый раз нажимаешь поялвяется например появляется что нибудь например какой нибудь риснок,потом например еще раз нажимаешь еще что нибдь делается..
Вопрос в том сделать так чтобы нажал 1раз что произошло еще раз еще что произошло ит.д

---

← →
esu ©   (2002-12-20 11:43) [1]

procedure TMainForm.Button1Click(Sender: TObject);
begin
Button1.Tag := Button1.Tag + 1;
ShowMessage(IntToStr(Button1.Tag));
end;

---

← →
Игорь Шевченко ©   (2002-12-20 11:46) [2]

OnClick менять, к примеру

---

← →
hatchy ©   (2002-12-20 11:51) [3]

if button1.tag = 6 then showmessage("Вот оно, то что на 6ой раз появляется");

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.018 c