Discussion :

[aaronw]

bonjour,
j'ai 2 questions a vous poser.

-j'aimerais savoir comment faire pour figer une form, c'est à dire bloquer toute manipulation dessus mais tout en restant visible.

-au lancement d'une form ,elle se lance en plein ecran.

merci

[/dev/null]

-j'aimerais savoir comment faire pour figer une form, c'est à dire bloquer toute manipulation dessus mais tout en restant visible.

Il y'a une solution un peut 'bourine' qui consiste a prendre un screen shoot de ta fenêtre et de l'afficher dans un TImage qui prend toute la surface... ça fonctionne. Si non, plus hard, il faut reprogrammer le gestionnaire de message pour tous les manger (en tout cas la souris et le clavier )

-au lancement d'une form ,elle se lance en plein ecran.

a mon avis la reponse est proche de la voir prés des toutoriel , ou simplement accésible en faisant

[tourlourou]

1° si tu lui interdis le focus, ça le fait pê simplement

[Pascal Jankowski]

Une solution radicale est d'intercepter le message WM_NCHITTEST
en procédant de la façon suivante:

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
...
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
    procedure WMNCHITTEST(var Message: TWMWindowPosMsg); message WM_NCHITTEST;
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.WMNCHITTEST(var Message: TWMWindowPosMsg);
begin
  //
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  WindowState := wsMaximized;  //lancer en plein écran
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  close; //te permet quand même de refermer la fenêtre 
end;
...

En espérant répondre à ta question.

Cordialement