смена действия

[designer999]

Как сделать что бы например после пятого нажатия на кнопку он выполняла другое действия
Например: когда я нажимаю пять раз на кнопку выполняется такое действия

Memo1.Lines.Add('111111');

когда уже шестой раз нажимаю то уже другое действия например:

Memo1.Lines.Add('222222');

подскажите кто знает ?

[maLoy*508]

завести перменную, и инкрименировать ее при нажатии на кнопку...

.....
var k : integer;
begin
inc(k);
case k of 
5 : begin (тут делаете то что вам надо) end;
6 : begin .... end;
....
end;
....

[designer999]

а по другому не как ?

[Манжосов Денис :)]

Тупой вопрос. Можно вместо k использовать Tag у кнопки, если не нравится

[Stilet]

По другому никак. Либо меняй стратегию своего программирования.
А чем этот вариант не устраивает? Вполне норм.

[designer999]

просто года для исполнения очень много

[designer999]

вот сделал так

procedure TForm1.Button2Click(Sender: TObject);
var k : integer;
begin
inc(k);
case k of
1 : begin (webbrowser1.Navigate('http://qiq.ru/'))end;
2 : begin (webbrowser1.Navigate('http://letitbit.net'))end;
3 : begin (webbrowser1.Navigate('google.ru'))end;
4 : begin (webbrowser1.Navigate('translate.ru'))end;
end;
end;

но что то не работает, но вроде всё же правильно сделал

[Voody]

k должна быть глобальной переменной. и начальное знпчение - ноль

[designer999]

вот сделал глобальную переменную

unit Unit2;

interface
var g_internetsite:integer;
implementation

end.

а вот подключил и сделал первоначальное значения 0

procedure TForm1.Button2Click(Sender: TObject);
begin
g_internetsite:=0;
case g_internetsite of
1 : begin (webbrowser1.Navigate('http://qiq.ru/'))end;
2 : begin (webbrowser1.Navigate('http://letitbit.net'))end;
3 : begin (webbrowser1.Navigate('google.ru'))end;
4 : begin (webbrowser1.Navigate('translate.ru'))end;
end;
end;

но при нажатие на кнопку нечего не происходит

[Selestis]

Начальное значение не там задали. Думайте что написали: каждый раз при входе в процедуру у вас обнуляется переменная, естественно ничего не выйдет. Инициализируйте её, скажем, в событии создания формы (Form1.OnCreate), а в процедуре инкрементируйте.