TPanel sizeable machen?

[Bummi]

grade mal aus einer Komponente von mir herauskopiert

Delphi-Quellcode:

Procedure TSQLCreator2.MoveControl(ControlHandle:Integer);
begin
  releasecapture;
  sendmessage(ControlHandle, WM_NCLBUTTONDOWN, 2, 0);
end;



Procedure TSQLCreator2.SizeControl(ControlHandle:Integer);
begin
  releasecapture;
  sendmessage(ControlHandle, WM_syscommand, SC_size+6,-1);
end;

Procedure TSQLCreator2.SizeControlW(ControlHandle:Integer);
begin
  releasecapture;
  sendmessage(ControlHandle, WM_syscommand, SC_size+2,-1);
end;

Procedure TSQLCreator2.SizeControlB(ControlHandle:Integer);
begin
  releasecapture;
  sendmessage(ControlHandle, WM_syscommand, SC_size+8,-1);
end;

EDIT und noch ein Beispieleinsatz

Delphi-Quellcode:

procedure TSQLCreator2.TBLVorMouseDown(Sender: TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
    if y < TPanel(Sender).Height -10 then
       begin
       SizeControlW(TPanel(Sender).Handle);
       //RepaintLink;
       end
    else if (y > TPanel(Sender).Height -4) and (x > TPanel(Sender).Width -4) then
       begin
       SizeControlB(TSqlBox2(Sender).Handle);
      // RepaintLink;
       end
    else
       begin
       SizeControl(TSqlBox2(Sender).Handle);
     //  RepaintLink;
       end;
end;