Судя по всему это некий вручную сгенеренный контрол UniGUI.
Я создаю в runtime вкладку TUniTabSheet и внутри нее создаю фрейм TuniFrame с сеткой TUniDBGrid.
Но показываю только если есть что показывать. Иначе показываю только сообщение, что ничего не найдено.
Все это живет внутри самого модуля фрейма.
В качестве AOwner передается главная форма приложения, внутри которой живет TUniPageControl.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
procedure SearchByPhoneD(const sTel: string; AOwner: TComponent);
Var
T : TUniTabSheet;
frdFindPhone1: TfrdFindPhone;
begin
if Trim(sTel).IsEmpty then
begin
MessageBox('вы не ввели номер телефона');
exit;
end;
T := TUniTabSheet.Create(AOwner);
T.PageControl := fmMain.pgMain;
T.Caption := constCheckPhone + ': ' + sTel;
T.ImageIndex := 8;
T.Closable := True;
t.OnClose := fmMain.TabSheetClose;
T.Name := 'UniTabSheet_' + t.PageIndex.ToString;
// заменяем кнопку на более крупную, см. CSS
if T.Closable then
T.JSInterface.JSAddListener(constAfterLayout, functAddClsCustomSheet);
UniMainModule.SessionActiveForm := T.Caption;
frdFindPhone1 := TfrdFindPhone.Create(T);
frdFindPhone1.Name := 'frdFindPhone' + T.PageIndex.ToString;
frdFindPhone1.Parent := T;
frdFindPhone1.Phone := sTel;//SetPhone() здесь frdFindPhone.Show;
end;
проверяю
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
procedure SetPhone(...);
begin
...
...
qSearchPhone.open;
if qSearchPhone.RecordCount = 0 then
begin
MessageBox('объявление с таким номером не найдено');
qSearchPhone.close;
(self.Owner as TUniTabSheet).Free;// уничтожаем вкладку
end
else
begin
fmMain.pgMain.ActivePage := self.Owner as TUniTabSheet;
BeforCreate;
self.Show;
end;
end;
