|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как сделать 2 разные процедуры по нажатию 2 раза кнопки.
Вообщем незнаю как точно сформулировать но надо так.
Один раз нажал кнопку выполнилось одно (одна процедура). Второй раз, выполнилось другое(другая процедура). А то неохото лепить 2 кнопки это не красиво... |
#2
|
||||
|
||||
вариантов море (например)...
1) Делаешь 2 кнопки, одна из которых невидимая. После нажатия на кнопку, которая видна, скрываешь ее, а другую показвывешь. Разумеется, у каждой кнопки свои действия по OnClick 2) Делаешь что-то типа Код:
var f: boolean; procedure TForm1.Button1Click(Sender: TObject); begin if f then proc1 else proc2; f := not f; end; |
#3
|
||||
|
||||
дополню..
или просто глобальный счетчик поставь Код:
var С: Byte = 1; procedure TForm1.Button1Click(Sender: TObject); begin case c of 1: {тут делаешь что-то для первого нажатия}; 2: {для второго}; 3: {для третьего}; {можно и т.д. до 255} end; if c<255 then inc(c); end; Нет повести печальнее на свете, чем повесть о заклиневшем Resete. Последний раз редактировалось Ferra, 05.01.2007 в 10:54. |
#4
|
|||
|
|||
ДА! Я чет тормоз после нового года.
Яже это делал с Timage. Спасиб всем за помощь! |