Forum > Packages and Libraries
ATTabs how i can add frame form in tab
(1/1)
eldonfsr:
Hi i started to work on this component looks great but a few documents you can find to follow or do something on it, here i trying to frame inside tab but always i have errror...
It look frame is in side the tab but is not if you click on + to add new tab i received a error...
eldonfsr:
when click + sign to add new tab
--- Code: Pascal [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---procedure TFormCliDat.ATTabs1TabPlusClick(Sender: TObject);var d: TATTabData;begin ATTabs1.AddTab(-1,'New', nil, false); d:= ATTabs1.GetTabData(ATTabs1.TabIndex); if Assigned(d) then begin (d.TabObject as TFrameClie).Show; FrameClie1.Memo1.Lines.Clear; FrameClie1.Memo1.Lines.Add('Test Texto'); end else begin (d.TabObject as TFrameClie).Show; end; end;
--- Code: Pascal [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---procedure TFormCliDat.FormShow(Sender: TObject);Var d: TATTabData;begin if( Lnew=true) then begin FrameClie1.Edit1.Text:=''; FrameClie1.Edit2.Text:=''; end else begin FrameClie1.Edit1.Text:= FormCtrCli.SQLQClie.FieldByName('numcli').AsString; FrameClie1.Edit2.Text:=FormCtrCli.SQLQClie.FieldByName('nomcli').AsString; end;end;
AlexTP:
I see that you pass Nil value of TabObject (member of TATTabData) and then you access this Nil value as TFrameClie object.
--- Code: Pascal [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} --- ATTabs1.AddTab(-1,'New', nil, false); d:= ATTabs1.GetTabData(ATTabs1.TabIndex); if Assigned(d) then begin (d.TabObject as TFrameClie).Show;
solution: pass OK pointer in AddTab().
IIRC someone already asked this in GitHub in last months.
Navigation
[0] Message Index