Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
TabOrder
#4
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

[Image: HpV7eDg.png]

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.
Reply


Messages In This Thread
TabOrder - by cyracks - 06-14-2018, 11:19 AM
RE: TabOrder - by DanielFields - 06-14-2018, 10:10 PM
RE: TabOrder - by Alexandre Machado - 06-14-2018, 10:32 PM
RE: TabOrder - by cyracks - 06-14-2018, 11:14 PM
RE: TabOrder - by Alexandre Machado - 06-15-2018, 08:12 AM

Forum Jump:


Users browsing this thread: 1 Guest(s)