Limit the align on my vcl

Nope. I need to use inside my vcl.

Hi!

You must override the AdjustClientRect method of tWinControl in your component.

AdJustCLientRect is called internally when the component needs kwow where to place the child components.

Here yoy have an example of this:

The example creates a descendent of TPanel with this method overrided.
The method 'reduce' the client area for the childs in 20 pixels.

The example creates a TMyPanel and inside it a TMemo with Align:=alClient;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type

  //A TPanel with a clipping area...
  TMyPanel = class (TPanel)
  private
    procedure AdjustClientRect(var Rect: TRect); override;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TMyPanel.AdjustClientRect(var Rect: TRect);
begin
  Rect:=ClientRect;
  Inc(Rect.Left,20);
  Inc(Rect.Top,20);
  Dec(Rect.Right,20);
  Dec(Rect.Bottom,20);
end;


procedure TForm1.FormCreate(Sender: TObject);
var
  TheSpecialPanel : TMyPanel;
begin
  //Create a new panel
  TheSpecialPanel:=TMyPanel.Create(self);
  With  TheSpecialPanel do begin
    Parent:=Self;
    Left:=10;
    Top:=10;
    Width:=200;
    Height:=200;
    Caption:='';
  end;

  //Create into the panel anything to view the clipping area:
  With TMemo.Create(self) do begin
    Parent:=TheSpecialPanel;
    Align:=alClient;  //Fill all the Panel (except clipped area...)
    Left:=10;
    Top:=10;
    Width:=200;
    Height:=200;
  end;

end;

end.

I done this but my painted border is on client area too.So I have the border under panel, for example.

sorry, but it looks like I did't understand what your problem is

you have your panel (TMyPanel), then you want to put some component on it (Panel, Memo, ListBox,...) for example, let say that you put panel with name Panel2, and need panel2.align to be alClient -2 pixel.

Is that right ?

If it is, than you can use align_client(panel2);

If that isn't case , can you, please,  explain your problem with more details

How I say I paint a border and when drop another panel in my first the second panel cover my border. If I contract my client area my border is paint in client area so the second panel cover my first panel anyway.

I forgot to say that the first panel is my own vcl and wish to control the childrens in my vcl code and not in applications.

Thanks to all for support! I can now step over.

I have an extra question if is possible. How to force the memo for example to be realign when I call at runtime the AdjustClientRect for panel?

Solve, thanks!

:)
Memo1.Realign;