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

Вопрос про TButton (если их много :))   Найти похожие ветки 

← →
Сергей Ю.   (2004-05-28 10:18) [0]

Я динамически создаю на форме кнопки, каждая из них выполняет процедуру на ОнКлик. Вопрос - как узнать какую из множества кнопок нажал юзер в теле обработки нажатия?
И еще - как выравнять текст капшина на кнопке по краю, а то он все пытается по середине писаться?
Спасибо за Ваши ответы.

---

← →
Ega23 ©   (2004-05-28 10:20) [1]

if (Sender as TButton).Name="" then .....

---

← →
NAlexey ©   (2004-05-28 10:23) [2]

По имени или свойству Tag если ты его заполнил. Да и зачем же ты их создаешь динамически если хочешь различать?

---

← →
serge ©   (2004-05-28 10:30) [3]

Текст по краю - никак, надо только создавать свою кнопку где и будешь указывать как выраынивается текс, или переопределяешь CreateParams
типа:

Procedure TColorBtn.CreateParams(Var Params: TCreateParams);
Begin
 Inherited CreateParams(Params);
 Params.Style := (BS_PUSHBUTTON + FIntAliniere + WS_CHILD + WS_VISIBLE + WS_TABSTOP + BS_OWNERDRAW);
End;

иде  FIntAliniere - новое добавленное свойство принимающее одно из значений

   FIntAliniere = BS_RIGHT;
   FIntAliniere = BS_LEFT;
   FIntAliniere = BS_CENTER;


Если что не так, думаю мастера подправят. Удачи!

---

← →
ALS   (2004-05-28 10:34) [4]

> как выравнять текст капшина на кнопке по краю...

TBitBtn вместо TButton, св-во Margin

---

← →
serge ©   (2004-05-28 10:40) [5]

BS_OWNERDRAW - это если предполагаешь сам рисовать всю кнопку, в противном случае не нужен.

---

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

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



Память: 0.46 MB
Время: 0.018 c