Вопросы с меткой [vcl]

VCL (Visual Component Library) - стандартная библиотека визуальных компонентов Delphi. В нее входят формы, кнопки, надписи, списки, стандартные диалоги и т.п.

Фильтрация
Сортировка
Метки
2 голоса
1 ответ
32 показа

Запрет ввода в textEdit только русских символов

Почему-то данный код не блокирует ввод русских (кириллических) символов procedure Tf_main.KeyPress_ENG(Sender: TObject; var Key: Char); begin if (Key in ['А'..'я']) then Key := #0; end;
Yuki's user avatar
  • 185
0 голосов
0 ответов
22 показа

Как на FastReport можно сделать гистограмму с группировкой

Возможно ли сделать что-то похожее на этот рисунок в FastReport VCL, но когда есть только один датасет, в котором есть поля «country», «year» и «value»? В обычном редакторе форм это делается через ...
vbif's user avatar
  • 59
0 голосов
1 ответ
52 показа

Получение результата математического выражения из строки

Есть ли возможность реализовать следующую концепцию? В поле TextEdit задается математическое выражение, например 2*2+2. При нажатии на кнопку (или любое другое событие), поле калькулируется и ...
Acinit's user avatar
  • 1,456
1 голос
1 ответ
67 показов

Как узнать какая форма сейчас на переднем плане под курсором?

Как узнать какая форма сейчас на переднем плане под курсором? так верно будет или есть ситуации где это не будет работать? может цикл с нуля начать. не знаю в каком порядке в листе Screen.CustomForm ...
vegat4's user avatar
  • 334
0 голосов
1 ответ
26 показов

Просьба помочь в написании компонента, при удалении с формы он вызывает AV

Устанавливает компонент в IDE (PakPanelTest.dpk), после этого открывает в Delphi демо-проект (PakPanelTest.dpk). В дизайнере устанавливаем свойство TestPanel1.ExternalToolBarPanel = SuperPanel Удаляем ...
Stalker's user avatar
  • 11
0 голосов
0 ответов
31 показ

delphi как в Desing-Time изменить визуальный размер TComponent? (как это сделано в FMX?)

Когда я тяну мышь TComponent в режиме разработки рисуется окно нового размера но новый размер не устанавливается, т.к нет таких полей в TComponent однако в FMX все контролы это не Vcl.TControl а ...
vegat4's user avatar
  • 334
0 голосов
0 ответов
39 показов

delphi memo как получить размера текста в пикселях или же индекс самой длинной строки в пикселях

Как получить размера текста в пикселях или же индекс самой длинной строки в пикселях Мне нужно заменить стандартный горизонт скрол на свой но что бы он верно работал нужно знать максимальную ширину ...
vegat4's user avatar
  • 334
2 голоса
1 ответ
88 показов

Как в Delphi в обработчике `OnMouseMove` определить источник события относительный или абсолютный (мышь или планшет)?

У моего ПК есть 2 устройства ввода с которыми я работаю попеременно - мышь и графический планшет (Wacom). Мышь, как известно, генерирует относительные координаты (типа X +5 Y +1), а планшет - ...
Kromster's user avatar
  • 13.6k
1 голос
1 ответ
49 показов

Как получить положение горизонтальной позиции в TMemo?

Как получить положение горизонтальной позиции в TMemo если стандартной полосы прокрутки нет? Вертикальную позицию могу получить так FPos:= Memo.Perform(EM_GETFIRSTVISIBLELINE,0,0)*Memo.LineHeight; //...
vegat4's user avatar
  • 334
0 голосов
1 ответ
35 показов

delphi vcl design time Ide как показать TPropertyEditor с TDefaultEditor

как показать редактор property в IDE когда кликаешь на попап меню в редакторе кликаю на элемент TDefaultEditor в редакторе компонента и нужно найти TPropertyEditor по имени property и запустить как бы ...
vegat4's user avatar
  • 334
1 голос
0 ответов
31 показ

Delphi VCL В каком модуле находится TImageCollection_ComEditor попап меню IDE

Мне хотелось бы унаследоватся от редактора попап меню TImageCollection но я не могу его найти. Или как самостоятельно вызвать редактор коллекции картинок в режиме разработки? uses DesignEditors; ...
vegat4's user avatar
  • 334
0 голосов
0 ответов
46 показов

delphi VCL TMemo or TRichEdit с цветными полосами прокрутки готовые решения

delphi VCL TMemo or TRichEdit с цветными полосами прокрутки вертикальные и горизонтальные. Какие есть готовые решения или как раскрасить стандартные? версия 10.3 У меня есть AlMemo но там только ...
vegat4's user avatar
  • 334
1 голос
0 ответов
40 показов

Какое сообщение WinAPI заставляет модальную форму моргать при попытке переключиться на другую форму?

Какое сообщение WinAPI заставляет модальную форму моргать при попытке переключиться на другую форму приложения не закрыв модальную? Как отловить это событие?
vegat4's user avatar
  • 334
0 голосов
0 ответов
63 показа

Ошибка при наследование фрейма: Error creating form: Ancestor for 'TMyFrame' not found

Имеется модуль BaseForms, в котором описан класс, наследуемый от TFrame: TMyFrame = class(TFrame) ... end; Далее создаю фрейм отдельно: File -> New -> VCL Frame и наследуюсь от TMyFrame: ...
Haslin's user avatar
  • 139
1 голос
1 ответ
54 показа

Какой стандартный VCL контрол использовать для рисования рамок по сторонам?

Мне нужен стандартный VCL контрол, который бы позволял выбирать наличие, цвет и толщину рамок по 4 своим краям. TShape позволяет задавать рамку, но она "общая" для всех 4 сторон, а мне же ...
Kromster's user avatar
  • 13.6k
0 голосов
2 ответа
140 показов

Как правильно уничтожить визуальный компонент с использованием события?

Создаю свой VCL на базе TScrollBox для удобной работы с множеством последовательностей ДНК. type TSeqPanel = class (TPanel) protected editBtn, delBtn:TButton; procedure Resize; override; ...
Alexey Kozlov's user avatar
3 голоса
1 ответ
64 показа

Access violation at adress

Реализую вращение фигур (прямоугольник, параллелограмм и шестиугольник) с использованием полиморфизма в VCL, использую переход от начальной формы к следующей, с самими фигурами. Столкнулся со ...
hjbaa's user avatar
  • 335
2 голоса
1 ответ
105 показов

Поток и событие класса, затрагивающее VCL-компоненту

Пишу в Delphi 2010. Есть TVirtualStringTree. Есть класс TExample, порожденный от TList<T>, где данные TVirtualStringTree и хранятся. Так же TExample описанно событие OnNotify, чтоб дерево ...
DelphiCoder's user avatar
0 голосов
1 ответ
79 показов

Delphi VCL Styles. Как сохранить стиль нажатой кнопки, когда она теряет фокус?

Решил попробовать RAD Studio 10, в нем есть крутая фишка с нативными скинами. Но проблема в чем - стиль применился, отлично. Есть кнопка, когда ее жмешь, она получает фокус, применяется стиль нажатой ...
Crasher's user avatar
  • 465
0 голосов
0 ответов
73 показа

Как сделать надпись на TShape?

Мне необходимо сделать надпись на TShape. У меня есть класс в полях которого есть шейп. В конструкторе класса я создаю шейп. TShape создается на панели у которой свойство visible = false; procedure ...
Pasha Malevich's user avatar
0 голосов
1 ответ
55 показов

Как максимально быстро рисовать тысячи TShape-ов?

У меня в программе нужно отображение большого количества шейпов с написанными на них текстом. Количество шейпов может быть до 20 тыс. Получится такая большая схема. Для быстроты работы хотелось бы ...
Pasha Malevich's user avatar
1 голос
2 ответа
84 показа

Ищу компонент TTBXImageList для Delphi

Пытаюсь реанимировать старый проект на Delphi, который требует класс TTBXImageList. Обнаружил TBX (надстройка к Toolbar2000), но там этого нет. При этом в интернете указанный компонент некогда ...
The_Immortal's user avatar
1 голос
1 ответ
91 показ

Как вывести строку с градиентным затуханием по краям?

Будет компонент, в нём можно будет мышкой скролить строку (или изображение) влево/вправо, строка длинная, потому хотелось бы сделать какой-то линейный градиент в виде маски по краям, чтобы был эффект ...
Isaev's user avatar
  • 2,421
0 голосов
2 ответа
115 показов

Как прикрутить к Label ползунок? [закрыт]

Если в Label не вмещается текст, то как прикрутить ползунок?
Osman's user avatar
  • 25
0 голосов
0 ответов
46 показов

Создать окно изменений поля Tedit

Начал осваивать VCL и столкнулся с проблемой. Как и с чем связать поле ввода Tedit, чтобы то, что вводилось в него, вывелось на экран как в чате (вроде истории введенного)? Нигде не нашел нормальных ...
Denis Komarov's user avatar
0 голосов
0 ответов
113 показов

Экранная клавиатура не появляется при фокусировке поля ввода в Windows 10 (планшет)

Есть Windows-приложение, написанное на Delphi, у него есть форма логина. Там поле для ввода логина, и поле для ввода пароля. Если тапнуть на поле для ввода пароля, то экранная клавиатура поднимается....
user1443993's user avatar
-2 голоса
1 ответ
844 показа

Как проверить количество символов введенных в Edit?

Как сделать, чтобы если в Edit1 введено меньше двух символов (букв, цифр), то кнопка была бы не активна. Я делаю это так и это условие прописываю в самом edit1: if Edit1.text < '2' then Button1....
Татьяна's user avatar
-3 голоса
1 ответ
52 показа

Как сделать обтекание объекта на другой объект?

Есть форма. В форме по левому краю dbgrid, а по правому panel. Когда нажимаю на button, размер panel расширяется и форма становится длинной, появляется панель прокрутки в форме. Как мне сделать чтобы ...
delphi's user avatar
  • 357
2 голоса
2 ответа
626 показов

Как у TTrackBar поменять цвет фона и бегунка?

Как в Delphi 10.2 поменять цвет фона и бегунка для TTrackBar? Никаких Color, Background, Foreground в свойствах нет.
AVM's user avatar
  • 339
0 голосов
1 ответ
188 показов

Как растягивать рабочее окно, а кнопки оставлять на месте?

Делаю программу (электронное пособие) и мне нужно чтобы кнопки остовались на своем месте, а рабочее окно растягивалось, в зависимости от размера экрана. Как это можно сделать?
OwlGG's user avatar
  • 45
2 голоса
1 ответ
94 показа

Как увеличить ограничение в 32767 на Top (и другие метрики) компонентов (это необходимо, например, для scrollinga Tpanel на TForm)?

В Delphi 6 максимальные размеры метрик компонентов ограничены 32767 как в режиме проектирования, так и при выполнении. Мне необходимо увеличить абсолютный размер Top TPanel при ее прокрутке вверх в ...
Юрий's user avatar
0 голосов
0 ответов
66 показов

Как изменить стиль всех контролов?

Сделала программу, в ней 70 разных контролов и все в стандартном стиле. Как изменить стиль всех кнопок, форм memo, edit.... на те, которые находятся в AlphaStandart ?
Татьяна's user avatar
1 голос
1 ответ
117 показов

Добавить Canvas к TScrollBox?

В качестве контейнера для потомков TShape при создании Workflow удобно использовать TScrollBox. Но у него есть недостаток - отсутствует Canvas, что не дает на нем рисовать. Мы обходим эту проблему, ...
Alexey Kozlov's user avatar
0 голосов
1 ответ
167 показов

Как правильно обработать WM_MEASUREITEM у TListView?

Как установить нужную мне высоту строк в TListView. Графика не нужна, форматирование текста тоже. Вот этот код я пытаюсь реализовать (нашел на форуме): Унаследовался от TListView, обрабатываю: ...
AVM's user avatar
  • 339
2 голоса
1 ответ
108 показов

Создать связанный компонент при редактировании свойств другого компонента в Design Time

Проектирую свой собственный новый визуальный компонент TSeqLink. У него, в числе прочих, есть свойство published property Handler: TLinkHandler read FHandler write SetLinkHandler; которое ...
Viktor Tomilov's user avatar
1 голос
0 ответов
84 показа

Подвисает программа при использовании TWebbrowser

В своём приложении вынужден использовать компонент TWebBrowser в связи с обязательным критерием наличие поддержки ActiveX для определённого сайта. Суть проблемы сводится к тому что : (логика) ...
Andrey Lehan's user avatar
2 голоса
2 ответа
403 показа

Стилизация формы в DLL [Delphi, VCLStyles]

Имеется программа на Delphi с VCLStyles. К ней подключается DLL на Delphi с формами. Требуется чтобы формы из DLL имели тот-же стиль, что и основная программа. Вопрос уже поднимался на английской ...
CTAJIUH's user avatar
  • 65
3 голоса
1 ответ
269 показов

Классический стиль программы в Delphi XE 10.2

Можно ли в Delphi XE 10.2 Tokyo сделать классический стиль VCL контролов на форме, как в Delphi 7 без XP-манифеста? То есть нужен вариант как слева:
Artur's user avatar
  • 190
0 голосов
0 ответов
76 показов

Округление дробного числа, в TFloatSpinEdit

Есть компонент TFloatSpinEdit (со стрелочками «вверх» «вниз») позволяющий производить инкремент/декремент существующего числа с плавающей точкой. Можно ли каким-нибудь образом отменить в нем ...
Konstantin78's user avatar
  • 1,277
0 голосов
1 ответ
52 показа

Непонятные размеры окон при Vcl.Styles - win & other

Начало вопроса Начало (ну или будет полезен) вопроса выше, по ссылке, ничего примечательного. Тема такая: D 10.1 starter. Стандартное приложение. В опциях включены схемы оформления. Теперь ...
Gu. 's user avatar
  • 258
3 голоса
1 ответ
52 показа

Как узнать, применяется ли схемы оформления (Vcl.Styles)?

D 10.1 starter. Стандартное приложение. В опциях включены схемы оформления. Вопрос: Как программно узнать, применяется ли сейчас какая-то схема оформления или стиль оформления стандартный? если схема ...
Gu. 's user avatar
  • 258
1 голос
2 ответа
305 показов

Как закрыть приложение во время его создания?

Проверяю при загрузке программы на существование файла. Но не могу понять как сделать так чтобы если нет файла программа закрывалась. А если есть продолжала работу. Сделал так но программа и так и так ...
delphi's user avatar
  • 357
0 голосов
1 ответ
1k показов

Добавить в listbox текст из edit

Как сделать, что бы при нажатии на кнопку текст из поля появлялся последовательно в строки listbox-а?
J.Jones's user avatar
  • 53
0 голосов
0 ответов
355 показов

Как группировать в cxGrid при gridmode:=true без сортировки?

На формуме DevExpress написано, что вроде нельзя. Но вчера у меня почему-то получалось. То есть ставил groupindex:=0 по колонке GridMode:=true, а сама колонка шла не сортированная: таблица AAAA AAAA ...
Igor Pakemonoff's user avatar
1 голос
0 ответов
230 показов

Печать из RichEdit

Есть код печати из RichEdit procedure TfrmMain.PrintRichEdit(RichEdit: TRichEdit; const Caption: string; const PrinterMargin: Integer); var PrinterHeight, PrinterWidth: Integer; LogPixels, ...
gregor's user avatar
  • 929
3 голоса
1 ответ
342 показа

Как запретить копировать в буфер обмена

Мне нужно запретить копировать текст из RichEdit Я решил переопределить WM_COPY У своего компонента TArticleRichEdit = class(TRichEdit) private procedure WMCopy(var Message: TWMCopy); message ...
gregor's user avatar
  • 929
1 голос
1 ответ
526 показов

Снять метку со всех RadioButton

На форме расположено множество RadioButton переключателей. Задача состоит в том, чтобы по кнопке сбросить им всем состояние в Checked = False. Как решить задачу, не обращаясь к объекту каждого ...
Robert's user avatar
  • 531
2 голоса
1 ответ
126 показов

Загрузить картинку в собственный пакет компонентов

Есть пакет компонентов *.bpk. В нем я реализую свои кастомные компоненты. В одном из них мне нужно использовать картинку *.png из rc файла. Вот его содержимое: INFO RCDATA info.png DELETE RCDATA ...
gregor's user avatar
  • 929
0 голосов
1 ответ
1k показов

Ошибка при установке JCL - отсутствует rtl220.bpl

При установке компонентов JCL, а именно при запуске Install.bat вылетает ошибка
gregor's user avatar
  • 929
1 голос
0 ответов
72 показа

Как в runtime вызвать редактор ImageList

Как в runtime вызвать редактор ImageList ?
gregor's user avatar
  • 929