Форум: "Основная";
Текущий архив: 2003.05.15;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Основная";
Текущий архив: 2003.05.15;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.012 c