Text edit berbentuk elips

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowRgn(Edit1.handle,
CreateRoundRectRgn(2,2, Edit1.Width-0,
Edit1.Height-2, 15, 15),True);
end;

end.

Anda Telah Membaca Text edit berbentuk elips

Semoga Artikel Text edit berbentuk elips Bisa Bermanfaat untuk kita semua. Jika Ada Hal yang ingin ditanyakan, Silahkan Komentar atau Hubungi kami via Web Chat yang tersedia