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 менять, к примеру

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

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