Merhabalar,
Yeni bir proje oluşturdum sorun olmadı.
Sorun
UniTabSheet1 içerisinde açılan formlarda,
seçim ekranından veri aktarımı yapıldığında UniTabSheet1 içerisindeki form yerine yeni bir form oluşturuyor ve ona aktarıyor veriyi.
Örneğin,
İki adet form mevcut. Biri UniTabSheet1 içerisinde açılıyor (FrmEFatura). Diğeri seçim ekranı (FrmSecim)
Tablet Application demosun da mevcut olan menü kullanıyorum. UniMenuItem ile FrmEFatura bu şekilde UniTabSheet1 içerisinde açılıyor.
procedure TMainForm.EFaturaClick(Sender: TObject);
var
Nd : TUniTreeNode;
Ts : TUniTabSheet;
FClassName, Path: string;
FrCC : TUniFormClass; Frm : TUniForm;
PanelTabSheetNew:TUniPanel;
begin
Nd := NavMenu.Selected;
if Nd.Count = 0 then
begin
Ts := Nd.Data;
if not Assigned(Ts) then
begin
Ts := TUniTabSheet.Create(Self);
Ts.PageControl := UniPageControl1;
Ts.Closable := True;
Ts.OnClose := TabSheetClose;
Ts.Tag := NativeInt(Nd);
Ts.Caption := Nd.Text;
Ts.ImageIndex := Nd.ImageIndex;
PanelTabSheetNew := TUniPanel.Create(Self);
PanelTabSheetNew.Align := alClient;
PanelTabSheetNew.Parent := TS;
PanelTabSheetNew.AlignmentControl := uniAlignmentClient;
PanelTabSheetNew.Layout := 'fit';
FClassName := 'TFrmEFatura';
FrCC := TUniFormClass(FindClass(FClassName));
Frm := FrCC.Create(UniApplication);
Frm.Align := alClient;
Frm.Parent := PanelTabSheetNew;
Nd.Data := Ts;
end;
UniPageControl1.ActivePage := Ts;
end;
end;
FrmEFatura 'da
iki adet Edit ve bir button(Secim Butonu) var.
Button.click
FrmSecim.ShowModal;
FrmSecim 'de
Bir adet Grid ve button var.
Button.Click
FrmEFatura .UniEdit1.Text := 'FrmEFatura ya aktırılacak Grid de seçimi yapılan veri';
FrmEFatura .UniEdit2.Text := 'FrmEFatura ya aktırılacak Grid de seçimi yapılan veri';
FrmSecim.Close;
Yardımcı olabilirseniz çok sevinirim,
Teşekkürler.