Clientbereich eines eigenen Controls beschränken

[ChrisE]

Hallo,

versuche mal die GetClientRect-Methode von TControl zu überschreiben.

Greez, Chris

[RSE]

GetClientRect ist ja letztlich auch nur ein WinAPI-Aufruf. Irgendwie muss der Clientbereich schon im Windows ordentlich gesetzt werden.

Inzwischen bin ich so weit ein Panel zu benutzen. Dann wäre der Clientbereich eben der Bereich des Panels... aber dann muss ich ja auch alles erst umbiegen auf das Panel. Weniger Aufwand wird das bestimmt nicht, unschön wär es dazu, aber es ginge...

[ChrisE]

Nein,

GetClientRect ist eine protected-Methode von TControl die virtuell deklariert ist. Diese wird z.B. aufgerufen um die property ClientRect den Wert zu geben. Schau dir bitte die Sourcen von TControl etc. an. Dann wirast du es sehen.

Greez, Chris

[RSE]

Du hast Recht. Und in TWinControl wird das Ergebnis von TControl mit dem Ergebnis der WinAPI-Funktion GetClientRect überschrieben. Wenn ich das ändere, dann erhalte ich das gleiche eigenartige Ergebnis, wie wenn ich WMNCCalcSize überschreibe und entsprechend ändere: MyCheckbox wird weiterhin über die Caption gezeichnet, aber der Hintergrund wird außerhalb vom eingeschränkten ClientRect nicht mehr gezeichnet...

[RSE]

Korrektur meiner Aussage von eben:
Mein Test mit WMNCCalcSize verschiebt die MyCheckBox dorthin, wo ich sie haben will. Ich muss jetzt nur noch all das selbst zeichnen, was außerhalb des eingeschränkten Clientbereichs liegt.

Code:

procedure TMyControl.WMNCCalcSize(var Message: TWMNCCalcSize);
begin
  with Message.CalcSize_Params^ do
    Inc(rgrc[0].Top,FCaptionHeight);
  inherited;
end;

[ChrisE]

Hallo,

du könntest auch von TGraphicControl ableiten (wie z.B. TSpeedButton auch).

Greez, Chris

[Bummi]

vielleicht kannst Du aus diesem Versuch was basteln??

Delphi-Quellcode:

unit Unit5;

interface

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

type
  TMyWrapper=Class(TWincontrol)

  End;
  TMyComponent=Class(TwinControl)
    private
    MyParent:TWinControl;
    FLabel:TLabel;
    Constructor Create(AOwner:TComponent);override;
    Destructor Destroy;override;
    function GetParent: TwinControl;
    procedure SetParent(const Value: TwinControl);
    function Getheight: Integer;
    function GetWidth: Integer;
    procedure SetHeight(const Value: Integer);
    procedure SetWidth(const Value: Integer);
    public
    published
    Property Parent:TwinControl Read GetParent Write SetParent;
    Property Width:Integer read GetWidth Write SetWidth;
    Property Height:Integer read Getheight Write SetHeight;
  End;

  TForm5 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Panel1: TPanel;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

{ TMyComponent }

constructor TMyComponent.Create(AOwner: TComponent);
begin
   inherited create(AOwner);
   MyParent:=TMyWrapper.Create(nil);
   FLabel:=TLabel.Create(nil);
   Flabel.parent := MyParent;
   Flabel.Align := alTop;
   Flabel.Caption :='Test';
   inherited Parent := MyParent;
   Align := alClient;
end;

destructor TMyComponent.Destroy;
begin
  Parent := nil;
  Flabel.Free;
  inherited;
end;

function TMyComponent.Getheight: Integer;
begin
    Result := MyParent.Height;
end;

function TMyComponent.GetParent: TwinControl;
begin
  Result := MyParent.Parent;
end;

function TMyComponent.GetWidth: Integer;
begin
    Result := MyParent.Width;
end;

procedure TMyComponent.SetHeight(const Value: Integer);
begin
       MyParent.Height:= value;
end;

procedure TMyComponent.SetParent(const Value: TwinControl);
begin
   MyParent.Parent := value;
end;

procedure TMyComponent.SetWidth(const Value: Integer);
begin
         MyParent.Width:= value;
end;

procedure TForm5.Button1Click(Sender: TObject);
var
  my:TMyComponent;
  b:TButton;
begin
  my:=TMyComponent.Create(Self);
  With my do
    begin
      parent := panel1;
      width := 100;
      Height := 100;
    end;
  b := TButton.Create(my);
  With b do
    begin
      top := 0;
      left := 0;
      Width := 100;
      Height := 20;
      Caption :='Test';
      parent := my;
    end;
end;

end.