Merlin’s Delphi Forge

This example shows you how to add a page to a TTabbedNotebook at run-time. It also shows how to add controls to it. Original code by Graham Mainwaring.

procedure AddPage;
var
btnNew : TButton;
NewPage: TTabPage;
wNumber: Word;
begin
{ [...]

The TMemo and TListBox components don’t have any print functions although sometimes they would come in very handy. Well, here’s the solution. All you have to do is open a text file on the printer and print anything you want.

uses
Printers;
…
var
iI [...]