Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

_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]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо