Form.BorderStyle.bsSizeable without the top border ?

[Fred vS]

Hello everybody.
I would like to have a main form sizeable but without the top-tray header (with help,system buttons), like a BorderStyle BsNone.
If i choose BsNone, ok, no top border but i cannot resize the window (no more borders at all) ? 

PS 2 How can i know the height of a top border ?

Thanks

[typo]

You can do something like this:

Code: [Select]

var d :boolean=false;
procedure TForm1.FormMouseDown(Sender:TObject;Button:TMouseButton;Shift:
  TShiftState;X,Y:Integer);
begin
  if ((x > width - 10) or (y > height - 10)) then
    d := true;
end;

procedure TForm1.FormMouseMove(Sender:TObject;Shift:TShiftState;X,Y:Integer);
begin
  if d then
  begin
    height := y;
    width := x;
  end;
end;

procedure TForm1.FormMouseUp(Sender:TObject;Button:TMouseButton;Shift:
  TShiftState;X,Y:Integer);
begin
  d := false;
end;     
So you can resize the window by yourself.

[Martin_fr]

If you do that, you should set MouseCapture := True in mouse down, and False in mouse up.

[Fred vS]

Thanks, first problem solved.
And how to know the height of the top border of a normal sizeable form ?

OOps, first prob not solved, i get a form without border with bsnone but i cant resize the form (i mean, with the cursor, not allow to resize if i go near the border).

[typo]

The code above allows you to resize the window whenever the mouse is clicked and dragged 10 points from the border.

[Fred vS]

Hi typo.
All right but it is not really like a sizeable window without top borders (dont have any borders, no cursor changing shape, etc).
Thanks

[typo]

You can add code to improve this. There is no way to get rid of the system bar without doing so with the sizeable feature of the form.

[Fred vS]

Hello everybody.
I m still waiting for a answer for

PS 2 How can i know the height of a top border ?

I want to know the height of the top border of a resizable windows .
Thanks

[theo]

I want to know the height of the top border of a resizable windows .
Thanks

On Windows, you could probably google for GetSystemMetrics.
On Linux, afaik this is not available without extra effort.
It's a window mangager thing. One thing I've learned is:
Don't fiddle with the window manager. ;-)

[Fred vS]

Thanks Leo.
The code is for all systems then i think i gonna create my own windows.

Maybe i think to use Mouse.CursorPos.Y  (get the position on the screen)  and compare it with Y given by form.MouseDown();   .

Code: [Select]

procedure Tform1.form1MouseDown(Sender: TObject;
                  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);       
var
heigthtop : integer ;

   begin
Mouse.CursorPos.Y - Y := heigthtop ;
end;


Or something better ?  
Thanks  

[theo]

Or something better ?  

This might work, at least on linux. But it's of course 0 with BorderStyle bsNone.

ClientToScreen(Point(0,0)).Y-Top