|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.04.2018, 10:19 | #1 |
Регистрация: 11.04.2018
Сообщений: 3
|
Создание компонента combofont
Необходимо создать свой компонент на основе combobox , который при добавлении на форму, будет показывать установленные шрифты, именно свой компонент. Что нужно для этого?
unit TComboBox1; interface uses SysUtils, Classes, QControls, QStdCtrls; type TcomboBox1 = class(TComboBox) private { Private declarations } protected { Protected declarations } public { Public declarations } published { Published declarations } constructor Create(aowner:Tcomponent); override; end; procedure Register; implementation procedure Register; begin RegisterComponents('MyCompt', [TcomboBox1]); end; constructor TComboBox1.Create(aowner:Tcomponent ); begin inherited create(Aowner); end; end. |
11.04.2018, 10:52 | #2 |
Форумчанин
Регистрация: 27.10.2014
Сообщений: 594
|
Нужно использовать обработчик.
Код:
|
11.04.2018, 11:03 | #3 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Или EnumFontFamiliesEx
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Последний раз редактировалось Аватар; 11.04.2018 в 11:18. |
11.04.2018, 11:49 | #4 |
Регистрация: 11.04.2018
Сообщений: 3
|
|
11.04.2018, 11:59 | #5 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
А попробовать сначала?
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
11.04.2018, 12:30 | #6 |
Регистрация: 11.04.2018
Сообщений: 3
|
Я попробовал
unit QCmbBx1; interface uses SysUtils, Classes, QControls, QStdCtrls; type TComboBox1 = class(TComboBox) private { Private declarations } FComboBox1: TComboBox1 ; protected { Protected declarations } public constructor Create(AOwner: TComponent); override; published { Published declarations } end; procedure Register; implementation procedure Register; begin RegisterComponents('Samples', [TComboBox1]); end; constructor TComboBox1.Create(Aowner:Tcomponent ); begin inherited create(Aowner); FComboBox1.Items.Assign(Screen.Font s); end; end. вот ошибка [Error] QCmbBx1.pas(32): Undeclared identifier: 'Screen' возможно я модуль в uses какой-то не подключил |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Создание компонента на С# | KM_ZeD | Помощь студентам | 0 | 27.11.2010 10:11 |
Создание компонента | sashchernun | Компоненты Delphi | 2 | 01.03.2010 00:10 |
Динамическое создание компонента из компонента)) | Impuls1989 | Компоненты Delphi | 8 | 22.10.2009 00:08 |
создание компонента | Bayazet | Общие вопросы Delphi | 4 | 17.12.2008 16:48 |
Создание компонента. | Черничный | Компоненты Delphi | 2 | 01.06.2008 23:28 |