Create multiple regions in real time
Posted: 05 Oct 2018 15:30
Hey.
I create 3 regions in real time.
And I want them to be placed strictly as they are created.
But I do not understand under what laws they place on the form.
And I get this picture.
I create 3 regions in real time.
And I want them to be placed strictly as they are created.
But I do not understand under what laws they place on the form.
- Code: Select all
procedure TIWForm1.IWAppFormCreate(Sender: TObject);
begin
c := TIWCGJQRegion.Create(self);
c.Parent := self;
c.Name := 'common';
c.Color := clWebANTIQUEWHITE;
c.Height := 50;
c.Align := alTop;
c.ZIndex := 0;
c.TabIndex := true;
c.TabOrder := 10;
c.Visible := True;
a := TIWCGJQRegion.Create(self);
a.Parent := self;
a.Name := 'r1';
a.Color := clWebBLUE;
a.Height := 50;
a.Align := alTop;
a.ZIndex := 0;
a.TabIndex := true;
a.TabOrder := 11;
a.Visible := True;
b := TIWCGJQRegion.Create(self);
b.Parent := self;
b.Name := 'r2';
b.Color := clWebRED;
b.Height := 100;
b.Align := alTop;
b.TabIndex := true;
b.TabOrder := 12;
b.ZIndex := 0;
b.Visible := True;
end;
And I get this picture.