[Delphinic]

Вообщем незнаю как точно сформулировать но надо так.
Один раз нажал кнопку выполнилось одно (одна процедура).
Второй раз, выполнилось другое(другая процедура).
А то неохото лепить 2 кнопки это не красиво...

[Decoding]

вариантов море (например)...

1) Делаешь 2 кнопки, одна из которых невидимая. После нажатия на кнопку, которая видна, скрываешь ее, а другую показвывешь. Разумеется, у каждой кнопки свои действия по OnClick

2) Делаешь что-то типа

Код:

1 2 3 4 5 6 7 8 9 10 11

<b>var</b>   f: boolean;    <b>procedure</b> TForm1.Button1Click(Sender: TObject); <b>begin</b>    <b>if</b> f <b>then</b>       proc1    <b>else</b>       proc2;    f := <b>not</b> f; <b>end</b>;

Одним словом, включай фантазию…

[Ferra]

дополню..
или просто глобальный счетчик поставь

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

<b>var</b>   С: Byte = 1;    <b>procedure</b> TForm1.Button1Click(Sender: TObject); <b>begin</b>  <b>case</b> c <b>of</b>   1: {тут делаешь что-то для первого нажатия};   2: {для второго};   3: {для третьего}; {можно и т.д. до 255}  <b>end</b>;  <b>if </b>c<255 <b>then</b> inc(c); <b>end</b>;

[Delphinic]

ДА! Я чет тормоз после нового года.
Яже это делал с Timage.
Спасиб всем за помощь!