Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 399

•  TDictionary Custom Sort  6 433

•  Fast Watermark Sources  6 214

•  3D Designer  9 173

•  Sik Screen Capture  6 553

•  Patch Maker  6 956

•  Айболит (remote control)  6 942

•  ListBox Drag & Drop  5 816

•  Доска для игры Реверси  96 892

•  Графические эффекты  7 150

•  Рисование по маске  6 455

•  Перетаскивание изображений  5 318

•  Canvas Drawing  5 686

•  Рисование Луны  5 394

•  Поворот изображения  4 933

•  Рисование стержней  3 517

•  Paint on Shape  2 782

•  Генератор кроссвордов  3 646

•  Головоломка Paletto  2 945

•  Теорема Монжа об окружностях  3 753

•  Пазл Numbrix  2 473

•  Заборы и коммивояжеры  3 155

•  Игра HIP  2 117

•  Игра Go (Го)  2 049

•  Симулятор лифта  2 410

•  Программа укладки плитки  2 103

•  Генератор лабиринта  2 562

•  Проверка числового ввода  2 253

•  HEX View  2 580

•  Физический маятник  2 189

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Элементы управления с автовыравниванием



Автор: Ralph Friedman

Я просто хочу в моем модуле заставить перемещаться поле редактирования (компонент Edit) синхронно с перемещением кнопки. При любом перемещении поля редактирования кнопка должна следовать за ним. Покопался в исходном коде VCL, но так ничего и не обнаружил...

При создании кнопки вы должны сделать ее "ребенком" поля редактирования (обычно, parent := self;). Также для компонента вы должны перекрыть метод CreateParams и установить Param.Style следующим образом:


Params.Style or WS_CLIPCHILDREN;








Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте