Crete TUniTabSheet OnClose

[Kanat]

Hi, Guys! 

 

Crete TUniTabSheet in UniPageControl1

 

     NewTabSheet := TUniTabSheet.Create(UniPageControl1);

     NewTabSheet.Caption     := 'TabSheet1';

     NewTabSheet.Name        := 'TabSheet1';

     NewTabSheet.PageControl := UniPageControl1;

     NewTabSheet.Parent      := UniPageControl1;

     NewTabSheet.Closable    := True;

 

     NewTabSheet.OnClose:=TestMethod; ERROR???

 

procedure TMainForm.TestMethod(Sender: TObject);

begin

  ShowMessage('Hello');

end;

 

Thanks.

 

 

 

[Sherzod]

Hi Kanatshym,

 

Try:

procedure TestClose(Sender: TObject; var AllowClose: Boolean);

procedure TMainForm.TestClose(Sender: TObject; var AllowClose: Boolean);
begin
  ShowMessage('Hello!');
end;

...
  NewTabSheet := TUniTabSheet.Create(UniPageControl1);
  NewTabSheet.Caption     := 'TabSheet1';
  NewTabSheet.Name        := 'TabSheet1';
  NewTabSheet.PageControl := UniPageControl1;
  NewTabSheet.Parent      := UniPageControl1;
  NewTabSheet.Closable    := True;

  TUniTabSheet(NewTabSheet).OnClose := TestClose;
...

Best regards.

[Kanat]

Thanks