Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TForm1.BitBtn1MouseDown(Sender: TObject... [D7, WinXP]

Луарвик © (2004-09-14 15:45:00)
Как сделать общую для всех кнопок процедуру такого вида:
<BitBtn>.Font.Color:=clwhite;
Где <BitBtn> имя именно той кнопки на которую нажали. Цель данных изисканий состоит в том чтоб не писать для каждой кнопки отдельно...

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

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

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

asafr (2004-09-14 17:41:00) [2]
Проверять, есть ли Font у TBitBtn, конечно, не надо... Но есть такое понятие, как безопасное преобазование типов... Возможно это и не обязательно, но это правильно.. Тем более не очень трудно написать
if Sender is TBitBtn
then TBitBtn(Sender).Font.Color:=clwhite

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

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

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

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

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

kukuikar (2004-09-14 16:16:00) [5]

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

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

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

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

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

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

kukuikar (2004-09-14 16:04:00) [8]
ааааа...
мистер Луаврик, как же как же помню вас.
так назывемый лентяй и халявщик...
еще килограмм кода хотите поиметь?

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

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

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

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

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

Семен Сорокин (2004-09-14 15:59:00) [10]
TBitBtn(Sender).Font.Color:=clwhite;

begin...end (2004-09-14 15:49:00) [11]
BitNtnName.OnClick := TFormName.CommonProc;

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »