Форум: "Потрепаться";
Текущий архив: 2003.01.09;
Скачать: [xml.tar.bz2];
Вниз
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 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.01.09;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c
