My projects - Мои проекты

ENGLISH: If you using my projects for your own needs or you did some modifications to it or you want to propose some improvements or nave any suggestions please drop me a line. It will be very much appreciated.


ПО-РУССКИ: Если вы используете каким либо образом мои проекты или вы сделали какие-то изменения или у вас есть предложения и советы по улучшению этих проектов, пожалуйста, напишите мне об этом.

TWndActImage (Visual Component)

This is an extension of standard TImage. It can react on clicks and drag action the same way as form border or form caption does. It gives possibility to resize/move Form by clicking and dragging the instance of TWndActImage object. This component can be very useful if you want to create form without border and caption but wish to give to the user possibility to move and to resize it using custom designed controls. There are two additional properties comparing to standard TImage:


ClickTarget – specifies the role of TWndActImage object as part of the form border. Possible values are:

  • atCaption – Window caption (move window)
  • atBorderTop – Top part of the form border (resize up/down)
  • atBorderRight – Right of the form border (resize left/right)
  • atBorderBottom – Bottom of the form border (resize up/down)
  • atBorderLeft – Left of the form border (resize left/right)
  • atCornerTopRight – Top-Right corner of the form
  • atCornerTopLeft – Top-Left corner of the form
  • atCornerBottonRight – Bottom-Right corner of the form
  • atCornerBottomLeft – Bottom-Left corner of the form
  • atNone – do nothing

ShowWndContent – specifies if the window content must be shown during the drag/resize process.


Download TWndActImage + demo with complete Delphi source code. (ZIP archive 218 KB)
Discuss this project.


Компонента TWndActImage

TWndActImage - это визуальная компонента построенная на основе стандартного TImage. Благодаря допонительному свойству ClickTarget действия производимые с экземпляром обьекта (перетаскивание, нажатие мышкой) идентичны действиям производимым с частями рамки формы. Таким образом вы можете изменять размеры формы, или перемещать форму по рабочему столу нажимая на экземпляр TWndActImage. Это может быть полезным в случае если бы делаете какую-нибудь "покрученныю" форму без рамки, но всётаки хотите изменять её размеры каким-то образом.


ClickTarget может принимать следующие значения:

  • atCaption – Заголовок формы
  • atBorderTop – Верхняя часть рамки
  • atBorderRight – Правая часть рамки
  • atBorderBottom – Нижняя часть рамки
  • atBorderLeft – Левая часть рамки
  • atCornerTopRight – Верхний-правый угол рамки
  • atCornerTopLeft – Верхний-левый угол рамки
  • atCornerBottonRight – Нижний-правый угол рамки
  • atCornerBottomLeft – Нижний-левый угол рамки
  • atNone – ничего не делает

Свойство ShowWndContent указывает на то, должно ли отображаться содержимое формы в процессе перетаскивания/изманения размеров или нет.


Download TWndActImage + demo with complete Delphi source code. (ZIP archive 218 KB)
Discuss this project.