Вопрос про 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

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

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