[SOLVED] Form without caption

[zoltanleo]

I have next code

Code: Pascal  [Select][+][-]

1. ...
2.     protected
3.       procedure CreateParams(var Params: TCreateParams); override;
4. ...
5. procedure TForm1.CreateParams(var Params: TCreateParams);
6. begin
7. {$IFDEF FPC}
8.   inherited CreateParams(Params);
9. {$ELSE}
10.   inherited;
11. {$ENDIF}
12.  
13. with Params do
14.   begin
15.     Style:= (Style or WS_POPUP) and not WS_CAPTION;
16.   end
17. end;

It's works for D2007, but do not works for CodeTyphon or for Lazarus.

Help me, plz.

[Mike.Cornflake]

Hmmm.  Didn't know about CreateParams, thanks for the tip...

A quick play shows Form1.BorderStyle := bsNone will give you no Caption, but, errr, doesn't look quite what you're after.

Ahh.  Form1.BorderStyle := bsSizeToolWin; looks more useful for you.

UPDATE: Strange, it worked the first time, but upon repeated tests the Caption is back...
UPDATE2:  I've now tried various things in CreateParams, including playing with ExStyle, wrapping all the consts with Cardinal() and using $0c00000 instead of WS_CAPTION (LCL calculates WS_CAPTION, whereas in MS docs it's a constant).

Nothing I'm afraid.  I'll leave this for people who actually know what they're doing

[howardpc]

Setting Params.ExStyle with WS_EX_TOOLWINDOW is not respected in the LCL on Win 7.
Perhaps OS themes override this?
Of course you can achieve a blank (wide) form top border by setting

Code: [Select]

with Form1 do
begin
  Caption:='';
  BorderIcons:=[];
end;


[zoltanleo]

Nothing I'm afraid.

Your attempts were successful? Can you show me the code?

2 howardpc
I have added to your code

Code: [Select]

BorderStyle:= bsDialog;
Caption:= '';
BorderIcons:= [];and got this result (see attachment)

ps. trying to draw a splash screen
pss. My feelings: there is no handler in the Lazarus styles. Is that so?

[ChrisF]

Code: [Select]

BorderStyle=bsNone

for the concerned form at design time, or later in your code.

[howardpc]

ps. trying to draw a splash screen

In that case you want

Code: [Select]

  form1.FormStyle:=fsSplash;
and perhaps other properties set appropriately.

[taazz]

ps. trying to draw a splash screen

In that case you want

Code: [Select]

  form1.FormStyle:=fsSplash;
and perhaps other properties set appropriately.

The only thing that fsSplash does, is to make sure that the splash form will not become the applications main form, it has no effect on the forms border, caption bar or the caption buttons. As far as I can understand is that LCL tries to enforce some kind of control on what can and can not be done in all widget sets and in some of them you probably can't turn on the borders with out turning on the caption bar as well. I would go looking on the wsXXXXXXXX classes that are the native classes.

[zoltanleo]

The only thing that fsSplash does, is to make sure that the splash form will not become the applications main form, it has no effect on the forms border, caption bar or the caption buttons.

I totally agree 

I would go looking on the wsXXXXXXXX classes that are the native classes.

I'll try it

2 ChrisF, howardpc

I need a 3D frame around the window. So I can't use the properties bsNone or fsSplash.

Thanks for the help all you. 
ps. I will be grateful to those who will finally be able to cause the method CreateParams

[Blaazen]

I need a 3D frame around the window. So I can't use the properties bsNone or fsSplash.

You can paste panel or bevel with 3D frame and anchor it to the edges of the form and set bsNone. It looks a little better.

[ChrisF]

@zoltanleo:
I'm not sure about what you mean with "3D frame"...

But in this sample (last post), there is a way to have a window with no caption but a sizeable border (workaround as CreateParams seems to be ineffective):

http://forum.lazarus.freepascal.org/index.php?topic=22196.0

[Mike.Cornflake]

Nothing I'm afraid.

Your attempts were successful? Can you show me the code?

I wasn't clear, sorry for that.  None of my attempts were successful, there was always a caption displayed.

[zoltanleo]

Thanks for the tips, friends.   

[howardpc]

A combination of OnCreate and OnActivate as follows gives the form shown below for me (Win 7).

Code: [Select]

implementation

uses LCLType, windows;

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormActivate(Sender: TObject);
begin
  SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) and not(WS_DLGFRAME));
  MoveWindow(Handle, Left, Top, Width-1, Height, True);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption:='';
  BorderIcons:=[];
  BorderStyle:=bsSizeable;
end;


[zoltanleo]

Wow! This is great! 

I have a question: how to disable resize the window?

[taazz]

borderstyle := bsDialog also I wouldn't use the onactivate at all I think that calling setwindowlong fdrom formcreate should be enough not tested it though so use your own tests.