Form en relief sans barre de titre

**Hy0ga** · 01/08/2005, 16h28

Hello,

Voila j'ai une question dont je pense que la réponse est toute bete.. mais ca fait un moment que j'ai plus fait de delphi et je n'arrive plus a le faire

J'aimerais simplement que ma Form n'ai pas de barre de titre. J'ai bien essayé de mettre le borderStyle à bsNone... mais je me retrouve avec une forme qui est toute plate

Y a bien un moyen d'avoir une Form en relief sans titre non ?

Tssss chuis persuadé que c'est tellement simple que je vais pleurer quand j'aurais la réponse o^_^o

Merci et @++

**Lung** · 01/08/2005, 16h39

J'ai trouvé ca (pas testé) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
procedure TForm1.CreateParams (var Params: TCreateParams); 
const 
  ThickFrames: array[Boolean] of DWORD = (0, WS_THICKFRAME); 
begin 
  inherited; 
  with Params do 
  begin 
    Style := WS_POPUP or WS_DLGFRAME; 
  end; 
end;

**Clorish** · 01/08/2005, 16h55

Le truc tout bete est :
- form avec FormStyle en fsNone
- Ajoute un panel en Align : AlClient
- Joue sur les BevelInner/Outter avec bvRaiser/bvLowered/bvNone pour donner du relief, de la profondeur ou un simple cadre.

Apres tu peux toujours surecharger la methode paint pour dessiner ton propre relief sur le canvas de ta form ....

**Hy0ga** · 01/08/2005, 17h02

Hummmm la première méthode, je n'ai pas réussi à la faire fonctionner

... Mais ta méthode Clorish bien qu'un peu "bricole" me semble pas bete

je vais essayer

hihi merci

**Clorish** · 01/08/2005, 17h09

elle n'est pas si "bricole" que ca .... a la base .. a quoi sert le Panel sinon

Tu peut aussi utiliser le compo "Bevel" si tu trouve la solution trop "Bricol"

**Hy0ga** · 01/08/2005, 17h10

En effet.. l'effet est bluffant

lol par contre, la form est rendue, par le fait, non-resizable

il semblerait que ma question n'étais en fait po si évidente que je le pensais

**Lung** · 01/08/2005, 17h28

Envoyé par Hy0ga

Hummmm la première méthode, je n'ai pas réussi à la faire fonctionner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
  private
    procedure CreateParams (var Params: TCreateParams);   override;
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.CreateParams (var Params: TCreateParams);
const
  ThickFrames: array[Boolean] of DWORD = (0, WS_THICKFRAME);
begin
  inherited;
  with Params do
  begin
    Style := WS_POPUP or WS_DLGFRAME;
  end;
end;
 
end.

Bon, j'ai testé, et ca marche ...

**Hy0ga** · 01/08/2005, 17h30

Grrrr Quel boulet je fais pas... Forcément.. sans le Override ca a moins de chance de marcher :-P .. je réessaye et je te dis

**Clorish** · 01/08/2005, 17h30

Si tu veux du deplacable c'est plus chaud ..... quand au resize .... mouais.

Bha en tout cas il te faudra implementer tout ca a la main.
A l'aide de l'evenement "OnMouseMove" tu peut detecter si la souri passe a moins de 3Pixels du bord de la form et dans ce cas changer le curseur de la souri avec la double fleche diago verticale ou horizontale correspondante.

ensuite a l'aude des OnMouseDown et up tuy peux augmenter la taille de ta form en fonction du delpta entre deux onmousemove.

enfin pour le deplacement ya un tuto sur le site mais la base est une combinaison OnMouseDown/Up pour demarrer/arreter le deplacement et un OnMouseMove pour deplacer du Delta cette fois ci.

Mais essaye le style fsToolBar, moi je l'aime bien.

Sinon reste enecore la possibilite de chercher dans les sources comment Borland manipule la retailel de la fenetre sizeable ...

**Hy0ga** · 01/08/2005, 17h35

En effet, avec le override ta methode fonctionne

o^_^o Alors la ca va beaucoup mieux

Yipiiiie

Cependant, J'ai pas non plus la possibilité de resize ma fenêtre

Si tu vois comment faire ?

Mais merci pour l'astuce

Si il n'y a pas moyen simplement je vais faire une gestion du resize a la main comme me l'a proposé... damnit je vois plus son pseudo

hihi

Merci a vous 2 en tout cas

**Lung** · 01/08/2005, 17h47

Envoyé par Hy0ga

Cependant, J'ai pas non plus la possibilité de resize ma fenêtre

Modifie comme ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Style := WS_POPUP or WS_DLGFRAME or WS_SIZEBOX;

**Hy0ga** · 01/08/2005, 17h51

Ca maaaaaarche

Lol

y a des gens comme ca qui ont réponse a tout :-P Merci infiniement a vous

**Lung** · 01/08/2005, 17h53

De rien. En fait, j'ai testé et découvert en même temps que toi ...

Si le problème est résolu, n'oublie pas d'utiliser le bouton [Résolu].

**Clorish** · 02/08/2005, 10h44

Juste un petit mot pour dire que ca m'interese aussi

C'est un peu plus propre qu'avec mes panels et bevels. Ca fait un moment que j'utilise ces methodes .... je me doutais bien qu'un jour j'arriverais a les optimiser

**Clorish** · 02/08/2005, 10h49

Tien je viens preciser un point de plus :
Au depart j'etait etonné de voir une methode private mentionné comme override ce qui me troublais quand meme pas mal ....

Mais j'ai apercu apres coup le message du compilo : Tu reduit la portee.
A vrifier mais a mon avis elle doit etre declarée Protected au moins.