ResizeKit - Support
by Newtone - Product Type: Component / ActiveX OCX / VCL
Support Forum
Adding components to ResizeKit in code... andyts [USA] 22-Aug-2007 22:41:09
Hey great component. (I tested it against one other resizing component and I belive ResizeKit does a better job! Anyway.)
Main form with ReisizeKit dropped on. I have a TCombobox dropped on the form. In code I have a decendent of TCombobox that I create as follows:
cbxYear and cbxMonth are both TCombobox.
procedure TMyForm.FormCreate(Sender: TObject);
begin
MYDD := TDoubleDateDD.Create(Self);
Mydd.BoundsRect := cbxYear.BoundsRect;
MyDd.Parent := cbxYear.Parent;
MyDd.MonthComponent := cbxMonth;
FreeAndNil(cbxYear);
end;
Now MyDd is located where cbxYear was but ResizeKit does not know it, and when resizing the form it does not resize.
Question: How do I tell ResizeKit about this component?
TIA,
Andy
Reply
RE: Adding components to ResizeKit in code... andyts [USA] 22-Aug-2007 23:47:34
Figured it out. Just give the component created in code that replaces the design time component a valid name:-)
Thanks for a great component.
Andy
Reply
Adding components to ResizeKit in code... andyts [USA] 22-Aug-2007 22:36:42
Hey great component. (I tested it against one other resizing component and I belive ResizeKit does a better job! Anyway.)
Main form with ReisizeKit dropped on. I have a TCombobox dropped on the form. In code I have a decendent of TCombobox that I create as follows:
cbxYear and cbxMonth are both TCombobox.
procedure TMyForm.FormCreate(Sender: TObject);
begin
MYDD := TDoubleDateDD.Create(Self);
Mydd.BoundsRect := cbxYear.BoundsRect;
MyDd.Parent := cbxYear.Parent;
MyDd.MonthComponent := cbxMonth;
FreeAndNil(cbxYear);
end;
Now MyDd is located where cbxYear was but ResizeKit does not know it, and when resizing the form it does not resize.
Question: How do I tell ResizeKit about this component?
TIA,
Andy
Reply
