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

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

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

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