![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
_NewControl
Trible © (2006-12-12 15:15:00)Мало доков по созданию компонентов.
Что значит @LabelActions здесь.
Как их использовать?
_NewControl(ASender,
'Test1',
WS_VISIBLE or WS_CHILD or SS_NOTIFY or SS_LEFTNOWORDWRAP or SS_NOPREFIX,
False,
@LabelActions
)
);
Trible (2006-12-12 16:20:00) [1]Да это и так понятно. это в первую очередь посмотрел. Как (и где) это использовать в своем компоненте вот в чем вопрос.
например
aGetCount: 0;
aSetCount: 0;
aSetBkColor: 0;
Gr (2006-12-12 16:12:00) [2]А что тебе мешает ввести в поле поиска LabelActionsи увидишь!
const
LabelActions: TCommandActions = (
...
aTextAlignLeft: SS_LEFT;
а предположим для
EditActions: TCommandActions = (
...
aTextAlignLeft: ES_LEFT;
чтобы не писать, например, для Edit и Label отдельные процедуры...
procedureTControl.SetTextAlign( constValue: TTextAlign);
...
taLeft: NewStyle := fStyle and notDWORD(aTextAlignCenter or aTextAlignRight)
or aTextAlignLeft;
...
Trible (2006-12-12 16:11:00) [3]Так я в исходниках и смотрю. Пробовал создавать уже готовый (рабочий) компонент и с этим и без этого.
Ну объясните в двух словах. Что вам стоит?
Vladimir Kladov (2006-12-12 15:57:00) [4]исходный код - тоже доки. Если вы не хотите разбираться, зачем оно надо, то скорее всего оно вам не надо.