Rounded TEdit

[josejosetomas]

Hello... I am beginning with programming and I would like to use Rounded TEdit on my project.

I found this answer:

http://forum.lazarus.freepascal.org/index.php/topic,6188.msg28803.html#msg28803

But the thing is that I don't know how to make a control. Have some body know how to do what I need?

Thanks...

[engkin]

I am beginning with programming and I would like to use Rounded TEdit on my project.

I don't know what OS you are using. For Windows, here is a simple trick:

Code: [Select]

uses
 ..., windows;

procedure RoundEdit(AEdit: TEdit);
var
  RGN: HRGN;
  d,r: integer;
begin
  d := 2;
  r := 4;
  RGN := CreateRoundRectRgn(d, d, AEdit.Width - d, AEdit.Height - d, r, r);
  SetWindowRgn(AEdit.Handle, RGN, True);
end;


[sam707]

using less code, in a more platform indep way, I would simply embed my TEdit into a TShape object at design time

[misu]

as sam707 said , using tshape is the easy way

[engkin]

That is something to learn. Thanks Sam707