Скачать: CL | DM;

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

← →
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c