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;

> 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)
> ааааа...
> мистер Луаврик, как же как же помню вас.
> так назывемый лентяй и халявщик...
> еще килограмм кода хотите поиметь?

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

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