| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Нужна помощь. [D7, XP]

hprx ©   (2007-08-23 20:34:00) 

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

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

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

---

hprx   (2007-08-23 22:08:00) [1]

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

---

@!!ex   (2007-08-23 20:55:00) [2]

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;

---

Zeqfreed   (2007-08-23 20:43:00) [3]

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

---

Джо   (2007-08-23 20:40:00) [4]

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

---

Наверх