TPageControlCanvas (Delphi)

Description

The following code uses ClientRect to find and draw a line from the upper left to the lower right of the current control. Select a TControl in the ListBox list. This example assumes that the current object is a descendant of TControl and has a public Canvas property.

Code

  if (ListBox1.Items.Objects[Index] is TPageControl) then
  begin
    myPageControl:= (ListBox1.Items.Objects[Index] as TPageControl);
    with myPageControl.ClientRect do
    begin // Make sure you are using the canvas of the TControl, and not the from's canvas
      myPageControl.Canvas.MoveTo(Left, Top);
      myPageControl.Canvas.LineTo(Right, Bottom);
    end;
  myPageControl:= nil;
  end;

Uses

• Vcl.ComCtrls.TCustomTabControl.Canvas ( fr | de | ja )