_NewControl

← →
Trible (2006-12-12 15:15) [0]

Мало доков по созданию компонентов.
Что значит @LabelActions здесь.
Как их использовать?

_NewControl(ASender,
"Test1",
WS_VISIBLE or WS_CHILD or SS_NOTIFY or SS_LEFTNOWORDWRAP or SS_NOPREFIX,
False,
@LabelActions
)
);

← →
Vladimir Kladov (2006-12-12 15:57) [1]

исходный код - тоже доки. Если вы не хотите разбираться, зачем оно надо, то скорее всего оно вам не надо.

← →
Trible (2006-12-12 16:11) [2]

Так я в исходниках и смотрю. Пробовал создавать уже готовый (рабочий) компонент и с этим и без этого.
Ну объясните в двух словах. Что вам стоит?

← →
Gr (2006-12-12 16:12) [3]

А что тебе мешает ввести в поле поиска LabelActions и увидишь!
const
LabelActions: TCommandActions = (
...
aTextAlignLeft: SS_LEFT;

а предположим для
EditActions: TCommandActions = (
...
aTextAlignLeft: ES_LEFT;

чтобы не писать, например, для Edit и Label отдельные процедуры...
procedure TControl.SetTextAlign(const Value: TTextAlign);
...
taLeft: NewStyle := fStyle and not DWORD(aTextAlignCenter or aTextAlignRight)
or aTextAlignLeft;
...

← →
Trible (2006-12-12 16:20) [4]

Да это и так понятно. это в первую очередь посмотрел. Как (и где) это использовать в своем компоненте вот в чем вопрос.
например
aGetCount: 0;
aSetCount: 0;
aSetBkColor: 0;

_NewControl Найти похожие ветки