Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.03;
Скачать: CL | DM;

Вниз

TForm1.BitBtn1MouseDown(Sender: TObject...   Найти похожие ветки 

 
Луарвик   (2004-09-14 15:45) [0]

Как сделать общую для всех кнопок процедуру такого вида:
<BitBtn>.Font.Color:=clwhite;
Где <BitBtn> имя именно той кнопки на которую нажали. Цель данных изисканий состоит в том чтоб не писать для каждой кнопки отдельно...


 
begin...end ©   (2004-09-14 15:49) [1]

BitNtnName.OnClick := TFormName.CommonProc;

где CommonProc(Sender: TObject) - метод TFormName.


 
Семен Сорокин ©   (2004-09-14 15:59) [2]

TBitBtn(Sender).Font.Color:=clwhite;


 
Луарвик   (2004-09-14 16:03) [3]


> TBitBtn(Sender).Font.Color:=clwhite;

Работает спасибо!

> [1] begin...end ©   (14.09.04 15:49)
> BitNtnName.OnClick := TFormName.CommonProc;
>
> где CommonProc(Sender: TObject) - метод TFormName.

Че за хрень не понял, но все равно спасибо!


 
kukuikar ©   (2004-09-14 16:04) [4]

ааааа...
мистер Луаврик, как же как же помню вас.
так назывемый лентяй и халявщик...
еще килограмм кода хотите поиметь?


 
Луарвик   (2004-09-14 16:09) [5]

Уважаемый, kukuikar, обратите внимание, что здесь и 100 грам кода  не набиреться, так что я действительно НЕ ЗНАЛ


 
Amoeba ©   (2004-09-14 16:13) [6]


> Луарвик   (14.09.04 16:09) [5]

Пора бы уже и знать.


 
kukuikar ©   (2004-09-14 16:16) [7]


> Луарвик   (14.09.04 16:09) [5]
> Уважаемый, kukuikar, обратите внимание, что здесь и 100
> грам кода  не набиреться, так что я действительно НЕ ЗНАЛ

а вчера говорил что не новичек!!!
бла-бла-бла


 
asafr   (2004-09-14 16:20) [8]

Вообще, не плохо бы сначала проверить действительно ли Sender is TBitBtn, и если ДА, то тогда только только (Sender).Font.Color:=clwhite;


 
Семен Сорокин ©   (2004-09-14 16:23) [9]


> asafr   (14.09.04 16:20) [8]
> Вообще, не плохо бы сначала проверить действительно ли Sender
> is TBitBtn, и если ДА, то тогда только только (Sender).Font.Color:=clwhite;

ага, а потом проверить есть ли у TBitBtn св-во Font, а у Font"а св-во Color?

Кто же кроме Вас этот обработчик другому элементу подсунет?


 
asafr   (2004-09-14 17:41) [10]

Проверять, есть ли Font у TBitBtn, конечно, не надо... Но есть такое понятие, как безопасное преобазование типов... Возможно это и не обязательно, но это правильно.. Тем более не очень трудно написать
if Sender is TBitBtn
then TBitBtn(Sender).Font.Color:=clwhite


 
Луарвик   (2004-09-14 23:06) [11]


> [4] kukuikar ©   (14.09.04 16:04)
> ааааа...
> мистер Луаврик, как же как же помню вас.
> так назывемый лентяй и халявщик...
> еще килограмм кода хотите поиметь?

ДА! Кстати, я не "Луаврик" а Луарвик! Попрошу не не путать.



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

Текущий архив: 2004.10.03;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.06 c
3-1094625570
VadimKV
2004-09-08 10:39
2004.10.03
Как вычислить факториал (5!) на языке SQL(FB1.5)???


3-1094107222
Koala
2004-09-02 10:40
2004.10.03
RxDBLookUpCombo помогите третий день мучаюсь


14-1095332331
сетевой
2004-09-16 14:58
2004.10.03
WWW


4-1093109098
AlexV
2004-08-21 21:24
2004.10.03
Label, независимый от размера шрифта в настр-ах Windows ...


6-1090534772
Victor!
2004-07-23 02:19
2004.10.03
mht шки от IE 5 в IE 6