Форум: "Начинающим";
Текущий архив: 2007.01.28;
Скачать: [xml.tar.bz2];
Вниз
А как передать данные из ОДНОЙ процедуры в ДРУГУЮ? Найти похожие ветки
← →
Virgo_Style © (2007-01-06 21:35) [40]Сначала caps почини и книжки почитай. Можно наоборот, сначала книжки, потом caps.
Если дело срочное, то можно это отложить на потом, а сейчас временно прекратить писать и начать читать.
← →
CoolLamer (2007-01-06 21:37) [41]
> MsGuns © (06.01.07 21:34) [39]
НАКОНЕЦ ТО ХОТЬ КАКОЙТо КОД!!! СПАСИБО ГРОМАДНОЕ!
← →
MsGuns © (2007-01-06 21:46) [42]>CoolLamer (06.01.07 21:33) [38]
>procedure TBitBtn.ClickAAA(Sender: TObject);
>begin
>ТУТ ХОЧУ ИЗМЕНИТЬ НАДПИСТЬ НА КНОПКЕ!!!!
>end;
Sender в Delphi используется для стандартизации обозначения инициатора события в процедурах-обратотчиках событий (TNotifyEvent и подобные)
Использовать его иногда чрезвычайно полезно. Например, когда один обработчик назначен нескольким "похожим" объектам. Допустим, надо сделать так, чтобы цвет вводимых символов во ВСЕХ эдитах менялся на красный, как только пользователь начал туда что-то вводить и становился обычным, как только курсор уходил из эдита в другой контрол. Таких контролов на форме может быть надцать штук. Так вот, написав всего лишь пару обработчиковprocedure TForm1.EditOnChange(Sender: TObject);
begin
TEdit(Sender).Font.Color := clRed;
end;
procedure TForm1.EditOnExit(Sender: TObject);
begin
TEdit(Sender).Font.Color := clWindowText;
end;
и назначив эти обаботчики ВСЕМ эдитам, мы получим эффект одинаковой реакции всех эдитов, как и требовалось. Если цвет надо с красного поменять на синий, меняем в единственном месте кода, и ВСЕ Эдиты начинают красить фонт по-новому.
Если контролы не только эдиты, но и объекты других классов (TMemo, TMaskEdit,TCombobox и т.д.), но краситься они должны по этому же принципу, то можно эти обработчики "повесить" и на события этих контролов, однако в этом случае код самих обработчиков надо слегка "подшаманить", научив его самостоятельно определять тип и класс объекта, к нему обатившегося. Это уже пример RTTI.
← →
CoolLamer (2007-01-06 21:57) [43]ОПАНА!!!
> MsGuns © (06.01.07 21:46) [42]
ОТ ДУШИ СПАСИБО, ВОТ ЭТО Я И ИСКАЛ!!!!
← →
CoolLamer (2007-01-06 22:09) [44]
> MsGuns © (06.01.07 21:46) [42]
ОТ ДУШИ, все РАБОТАЕТ!!!! ТЫ МАСТЕР 100 ПУДОВ!!!!
← →
CoolLamer (2007-01-06 22:09) [45]
> MsGuns © (06.01.07 21:46) [42]
ОТ ДУШИ, все РАБОТАЕТ!!!! ТЫ МАСТЕР 100 ПУДОВ!!!!
← →
CoolLamer (2007-01-06 22:12) [46]НУ и Virgo_Style, kaZaNoVa, Kolan, Джо, Sergey Masloff ШИРОКИЙ RESPEKT!!!!
← →
MetalFan_pda (2007-01-07 00:38) [47]Автор!чини капслок!или ты блондинка?
← →
Плохиш © (2007-01-07 00:52) [48]Читал ветку, рыдал....
← →
MsGuns © (2007-01-07 00:58) [49]>Плохиш © (07.01.07 00:52) [48]
>Читал ветку, рыдал....
Поделись над чем, тоже вот взрыднуть захотелось ;)
← →
Плохиш © (2007-01-07 01:05) [50]
> MsGuns © (07.01.07 00:58) [49]
> Поделись над чем, тоже вот взрыднуть захотелось
Над попытками объяснить детсадовцу основы квантовой механики ;-)
← →
MsGuns © (2007-01-07 01:21) [51]>Плохиш © (07.01.07 01:05) [50]
Мне было не до смеха ;(
Страницы: 1 2 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.01.28;
Скачать: [xml.tar.bz2];
Память: 0.54 MB
Время: 0.04 c
