Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.031 c