Como arredondar os cantos de uma Edit, Por favor!!!

12/05/2015

Delphi

galera como arredondar os cantos de uma edit?

att Mailson Junior

Mailson Costa

Curtir t�pico + 0

Responder

Post mais votado

14/05/2015

Amigo fa�a o seguinte,

Adicione a seguinte procedure no seu form:

procedure DrawControl(Control: TWinControl) ;
var
   R: TRect;
   Rgn: HRGN;
begin
    with Control do  begin
        R := ClientRect;
        rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 10, 10) ;
        Perform(EM_GETRECT, 0, lParam(@r)) ;
        InflateRect(r, - 4, - 4) ;
        Perform(EM_SETRECTNP, 0, lParam(@r)) ;
        SetWindowRgn(Handle, rgn, True) ;
        Invalidate;
    end;
end;

No evento onCreate do form fa�a isso:

    seuEdit.BorderStyle := bsNone;
    DrawControl(seuEdit);

�der Franco

Responder

Gostei + 1

Mais Posts

14/05/2015

�der Franco

Isso resolve o seu problema. =)

Responder

Gostei + 0

18/05/2015

Mailson Costa

obg amigo :)

Responder

Gostei + 0

17/01/2021

Victor

Amigo fa�a o seguinte,

Adicione a seguinte procedure no seu form:

procedure DrawControl(Control: TWinControl) ;
var
   R: TRect;
   Rgn: HRGN;
begin
    with Control do  begin
        R := ClientRect;
        rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 10, 10) ;
        Perform(EM_GETRECT, 0, lParam(@r)) ;
        InflateRect(r, - 4, - 4) ;
        Perform(EM_SETRECTNP, 0, lParam(@r)) ;
        SetWindowRgn(Handle, rgn, True) ;
        Invalidate;
    end;
end;

No evento onCreate do form fa�a isso:

    seuEdit.BorderStyle := bsNone;
    DrawControl(seuEdit);

Responder

Gostei + 0

09/11/2022

Erik Silva

Vim do futuro para dizer que voc� � um amigo! Obrigado amigo!

Responder

Gostei + 0