Discussion :

[gazier20]

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

[phplive]

Bjr,

Non tu t'y prends mal ...

Il faut utiliser les régions : voir le tutoriel

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

Ce qui peut donner :

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
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

[gazier20]

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

[LadyWasky]

Bjr,

Non tu t'y prends mal ...

Il faut utiliser les régions : voir le tutoriel

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

Ce qui peut donner :

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
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 !!!