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

procedure   Найти похожие ветки 

← →
lameridze   (2003-05-04 12:51) [0]

Люди-Боги, помогите!!!!
Есть 3 кнопки (заголовок каждой равен номеру по порядку, т.е. 1,2,3) и label. Для всех - одна процедура типа:
...
if sender is TButton then
begin
edit1.SetFocus;
memo1.Clear;
end;
...
Как сделать, чтобы при нажатии каждой из них в label отображался ее заголовок?
P.S. и енто вставить в общую процедуру.

---

← →
Palladin ©   (2003-05-04 12:58) [1]

ну типа
if sender is TButton then
begin
label.caption:=(sender as TButton).caption;
edit1.SetFocus;
memo1.Clear;
end;

---

← →
MBo ©   (2003-05-04 12:58) [2]

TButton(Sender).Caption

---

← →
lameridze   (2003-05-04 13:02) [3]

Люди, Вы - Боги!!!

---

← →
MsGuns ©   (2003-05-04 13:07) [4]

Как легко, однако, стать небожителем :)))

---

← →
MBo ©   (2003-05-04 13:14) [5]

да нет, просто узнав об IS, мы SEE ALSO тоже посмотрели об AS и о явном приведении типов
:)

---

← →
Palladin ©   (2003-05-04 13:14) [6]

Удалено модератором
Примечание: OffTopic

---

← →
MsGuns ©   (2003-05-04 13:43) [7]

Удалено модератором

---

← →
Anatoly Podgoretsky ©   (2003-05-04 14:32) [8]

Удалено модератором
Примечание: OffTopic

---

← →
Fenik ©   (2003-05-04 19:44) [9]

Удалено модератором
Примечание: OffTopic

---

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

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



Память: 0.46 MB
Время: 0.013 c