![]() |
![]() ![]() ![]() |
acFormMagnet component.
|
type
|
TOnGlue = procedure(Sender: TObject; AnotherForm: TForm;
|
var AllowGlue: Boolean) of object;
|
|
property OnGlue: TOnGlue;
|
The OnGlue event occurs when the form is about to be glued to other form. You may allow or disallow the gluing, using AllowGlue variable.
|
OnMagnet event.
|