Re: [Lazarus] TPageControl - how to use it?

[Howard Page-Clark]

On 28/1/12 7:50, Bernd wrote:

 I have a TPageControl on my form and at runtime I
want to add a new page with a SynEdit on it.

This is what I have so far:
...
But it does not work.

Try this:

procedure TForm1.AddTab(AFileName: String);
var
  Sheet: TTabSheet;
  Ed: TSynEdit;
begin
  Sheet := TTabSheet.Create(pagecontrol1);
  sheet.Parent := PageControl1;
  Sheet.Caption := 'Unnamed';
  Ed := TSynEdit.Create(Sheet);
  ed.Parent := Sheet;
  ed.BoundsRect := sheet.BoundsRect;
  ed.LineText := 'specimen line';
  PageControl1.ActivePage := Sheet;
end;



--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus