PageControlChange (Delphi)
Description
This project requires a Page Control. You will need to populate the Page Control by right-clicking and selecting New Page from the context menu. As you select the tabs, the Page Control OnChange event fires, which causes the form caption to display the captions of each of the TTabSheets attached to the Page Control. Note the use of the Form�s OnShow event handler to set the caption when the form first appears. This occurs before any changes trigger the OnChange event of the Page Control.
Code
procedure TForm1.PageControl1Change(Sender: TObject);
begin
Caption := ' Now working on tab: ' + PageControl1.ActivePage.Caption;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
PageControl1Change(Sender);
end;
Uses
- Vcl.ComCtrls.TCustomTabControl.OnChange ( fr | de | ja )
- Vcl.Forms.TCustomForm.OnShow ( fr | de | ja )