Нужна помощь.

← →
hprx (2007-08-23 20:34) [0]

Здравствуйте. Подскажите как можно осуществить следующее:

procedure TForm1.Button1Click(Sender: TObject);
var
n: String;
begin
Edit1.Text:=n;
end;

Вся проблема заключается в том, что n надо присвоить значение 12 и 15, при первом нажатии на кнопку Edit1.Text должно присваиваться 12, при втором нажатии на кнопку Edit1.Text должно присваиваться 15, а при третем - долно выводиться сообщение.

← →
Джо © (2007-08-23 20:40) [1]

Вводишь переменную-счетчик нажатий в секции implementation и всех делов.

← →
Zeqfreed © (2007-08-23 20:43) [2]

1. Использовать св-во Tag.
2. Ввести и использовать поле в класс формы.
3. Наследовать TEdit и ввести нужные поля/методы.
(4. Использовать глобальную переменную.)
5. Использовать Си и статические переменные :)
…e.t.c.

← →
@!!ex © (2007-08-23 20:55) [3]

var
ClickCount:integer = 0;
....
procedure TForm1.Button1Click(Sender: TObject);
begin
case ClickCount of
0:begin
//First Click
end;
1:begin
//Second Click
end;
2:begin
//Third Click
end;
end;
inc(ClickCount);
end;

← →
hprx (2007-08-23 22:08) [4]

Всем спасибо.

Нужна помощь. Найти похожие ветки