Discussion :

[Dibouda]

Salut à tous,
Pour arrondir ma form j'utilise HRGN.

Mais à la compilation de mon prog il me dit :

[Erreur] Dibouda.dpr(22): Identificateur non déclaré : 'ClientWidth'
[Erreur] Dibouda.dpr(22): Identificateur non déclaré : 'ClientHeight'
[Erreur] Dibouda.dpr(23): Identificateur non déclaré : 'Handle'

Pour le code suivant :

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
 
program Dibouda;
 
uses
  Forms,
  Windows,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3};
 
{$R *.res}
var
  Rgn : HRGN;
begin
  Application.Initialize;
  Application.Title := 'Dibouda';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.Run;
  Rgn := CreateRoundRectRgn(0,0,ClientWidth,ClientHeight,5,5);
  SetWindowRgn(Handle, Rgn, True);
end.

Merci d'avance.

[smyley]

tu utilises le code au mauvais endroit
met le dans l'évenement FormShow de ta form :

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.FormShow(Sender: TObject);
var
  Rgn : HRGN;
begin
Rgn := CreateRoundRectRgn(0,0,ClientWidth,ClientHeight,15,15);
  SetWindowRgn(Handle, Rgn, True);
end;

[neilbgr]

Normal, les propriétés ClientWidth,ClientHeight, Handle sont notament ceux d'une Form (Form1 surement dans ton cas)...

Donc, il vaut mieux mettre les lignes " Rgn := CreateRoundRectRgn(0,0,ClientWidth,ClientHeight,5,5); SetWindowRgn(Handle, Rgn, True); " dans le FormCreate de Form1.

[Dibouda]

Ha ok,y a t'il donc possibiliter d'ouvrir dans ces cas la mes forms 2 et 3 dans la 1 ?
Merci.

[smyley]

ta question est obscure
A mon avis tu veux faire du MDI, fait un petit tour dans la section cours pour voir