Afficher une image devant un composant ?

Version imprimable

11/03/2006, 13h20
gazier20

Afficher une image devant un composant ?

Bonjour, je souhaiterais afficher une petite image devant le coin d'un Memo pour faire croire qu'il est arrondi.
Le problème c'est que je n'arrive pas à faire afficher l'image devant le memo (idem devant des autres composants), pourtant j'ai essayé de faire un clique droit de souris puis mettre au premier plan mais rien n'y fais

J'attends vos réponses, merci

Bjr,

Non tu t'y prends mal ... :cry:

Il faut utiliser les régions : voir le tutoriel

http://zewaren.developpez.com/delphi/regions/

Ce qui peut donner :

Code:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure ArrondirControl(WinControl : TWinControl; Diametre : Integer);
var
  Region : HRGN;
begin
  with WinControl.BoundsRect do
  begin
    // Apparemment les coordonnées sont relatives au contrôle
    Region := CreateRoundRectRgn(0,0,Right-Left,Bottom-Top,Diametre,Diametre);
  end;
  //Application de la region au handle du contrôle
  SetWindowRgn(WinControl.Handle, Region, true);
  DeleteObject(Region); //Suppresion de la region.
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ArrondirControl(Memo1,20);
end;
 
end.

@+
Php

11/03/2006, 14h37
gazier20

Merci beaucoup, tu viens de me faire découvrir des fonctionnnalités que je ne soupçonnais pas

Citation:

Envoyé par phplive

Bjr,

Non tu t'y prends mal ... :cry:

Il faut utiliser les régions : voir le tutoriel

http://zewaren.developpez.com/delphi/regions/

Ce qui peut donner :

Code:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure ArrondirControl(WinControl : TWinControl; Diametre : Integer);
var
  Region : HRGN;
begin
  with WinControl.BoundsRect do
  begin
    // Apparemment les coordonnées sont relatives au contrôle
    Region := CreateRoundRectRgn(0,0,Right-Left,Bottom-Top,Diametre,Diametre);
  end;
  //Application de la region au handle du contrôle
  SetWindowRgn(WinControl.Handle, Region, true);
  DeleteObject(Region); //Suppresion de la region.
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ArrondirControl(Memo1,20);
end;
 
end.

@+
Php

Excellente astuce !!! :P