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

Delphi

12/05/2015

galera como arredondar os cantos de uma edit?

att Mailson Junior
Mailson Costa

Mailson Costa

Curtidas 0

Melhor post

éder Franco

éder Franco

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);
GOSTEI 1

Mais Respostas

éder Franco

éder Franco

12/05/2015

Isso resolve o seu problema. =)
GOSTEI 0
Mailson Costa

Mailson Costa

12/05/2015

obg amigo :)
GOSTEI 0
Victor

Victor

12/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);
GOSTEI 0
Erik Silva

Erik Silva

12/05/2015

Vim do futuro para dizer que você é um amigo! Obrigado amigo!
GOSTEI 0
POSTAR