Css 如何使TWebPanel具有圆角

发布于10月08日

我正试图通过Delphi代码在TMS Web Core上完成这项工作.

procedure TForm1.WebFormCreate(Sender: TObject);
begin
 pnlPersonalInfo.Margins.Left := 15;
 pnlPersonalInfo.Margins.Top := 15;
 pnlPersonalInfo.Margins.Right := 15;
 pnlPersonalInfo.Margins.Bottom := 15;


 phone.HTML.Text := GetBootstrapIcon('telephone-fill', 24, '#576A33');
 email.HTML.Text := GetBootstrapIcon('envelope-fill', 24, '#576A33');
 location.HTML.Text := GetBootstrapIcon('geo-alt-fill', 24, '#576A33');

 web.HTML.Text := GetBootstrapIcon('globe', 24, '#576A33');
 Github.HTML.Text := GetBootstrapIcon('github', 24, '#576A33');
end;

pnlPersonalInfo是我想要的TWebPanel的圆角.

推荐答案

您可以使用内联css为任何组件提供圆角.以下是三个例子:

// Rounded corners for all four corners:
WebPanel1.ElementHandle.style.setProperty('border-radius','50px');

// Rounded corners for top-left and bottom-left corners:
WebPanel2.ElementHandle.style.setProperty('border-radius','50px 0 0 50px');

// Rounded corners for top-right and bottom-right corners:
WebPanel3.ElementHandle.style.setProperty('border-radius','0 50px 50px 0');