06-14-2018, 11:14 PM
I am using cgdevtools components if that makes any difference, bellow is the whole definition of components in question (components to code):
Delphi: XE7
IntraWeb: 14.2.6
CGDevTools: 4.1.0.50
I also tried to manually set taborder after owner was changed but that also didn't help. For example
Beside that I also tried to change property HandleTabs on main form from False to True, but that made no difference.
Delphi: XE7
IntraWeb: 14.2.6
CGDevTools: 4.1.0.50
Code:
var
Region02WorkDeparture: TIWCGJQMRegion;
LabelBoxWorkDept: TIWCGBSLabelBox;
MGridPanelWorkDep: TIWCGJQMGridPanel;
MPanelWorkDept01Out: TIWCGJQMGridPanelRegion;
MButtonWorkDeptOut: TIWCGJQMButton;
MPanelWorkDept02In: TIWCGJQMGridPanelRegion;
MButtonWorkDeptIn: TIWCGJQMButton;
Region02WorkDeparture := TIWCGJQMRegion.Create(Self);
LabelBoxWorkDept := TIWCGBSLabelBox.Create(Self);
MGridPanelWorkDep := TIWCGJQMGridPanel.Create(Self);
MPanelWorkDept01Out := TIWCGJQMGridPanelRegion.Create(Self);
MButtonWorkDeptOut := TIWCGJQMButton.Create(Self);
MPanelWorkDept02In := TIWCGJQMGridPanelRegion.Create(Self);
MButtonWorkDeptIn := TIWCGJQMButton.Create(Self);
with Region02WorkDeparture do
begin
Name := 'Region02WorkDeparture';
Parent := MRegion01Main;
Left := 0;
Top := 148;
Width := 350;
Height := 75;
TabOrder := 2;
Version := '1.0';
Align := alTop;
end;
with LabelBoxWorkDept do
begin
Name := 'LabelBoxWorkDept';
Parent := Region02WorkDeparture;
Left := 0;
Top := 0;
Width := 350;
Height := 15;
TabOrder := 0;
Version := '1.0';
Align := alTop;
Caption := 'Slu'#382'bni odhod';
with Html.Elements.Add do begin
ClsName := 'TIWCGHTMLSpan';
Attributes := <;
Name := 'class';
Value := 'label label-default';
end;
with Elements.Add do begin
ClsName := 'TIWCGHTMLTextElement';
Text.Strings := (;
end;
with Events.Add do begin
Name := 'click';
end;
end;
with MGridPanelWorkDep do
begin
Name := 'MGridPanelWorkDep';
Parent := Region02WorkDeparture;
Left := 0;
Top := 15;
Width := 350;
Height := 65;
TabOrder := 1;
Version := '1.0';
TabIndex := True;
end;
with MPanelWorkDept01Out do
begin
Name := 'MPanelWorkDept01Out';
Parent := MGridPanelWorkDep;
Left := 0;
Top := 0;
Width := 175;
Height := 65;
TabOrder := 0;
Version := '1.0';
BlockClass := 'a';
Panels := MGridPanelWorkDep;
end;
with MButtonWorkDeptOut do
begin
Name := 'MButtonWorkDeptOut';
Parent := MPanelWorkDept01Out;
Left := 0;
Top := 0;
Width := 175;
Height := 58;
TabOrder := 0;
Version := '1.0';
Align := alClient;
end;
with MPanelWorkDept02In do
begin
Name := 'MPanelWorkDept02In';
Parent := MGridPanelWorkDep;
Left := 175;
Top := 0;
Width := 175;
Height := 65;
TabOrder := 1;
Version := '1.0';
BlockClass := 'a';
Panels := MGridPanelWorkDep;
end;
with MButtonWorkDeptIn do
begin
Name := 'MButtonWorkDeptIn';
Parent := MPanelWorkDept02In;
Left := 0;
Top := 0;
Width := 175;
Height := 58;
TabOrder := 0;
Version := '1.0';
Align := alClient;
end;
I also tried to manually set taborder after owner was changed but that also didn't help. For example
Code:
Form_mHRWorkLog01 := TForm_mHRWorkLog01.Create(WebApplication);
Form_mHRWorkLog01.Region02WorkDeparture.Parent := MainForm.MRegionMenuHolder;
Form_mHRWorkLog01.LabelBoxWorkDept.tabOrder := 0;
Form_mHRWorkLog01.MGridPanelWorkDep.tabOrder := 1;
Beside that I also tried to change property HandleTabs on main form from False to True, but that made no difference.