Olá, queria saber como colocar sombra em uma "label" no Delphi como esta da imagem abaixo:
1 Resposta
Cara, acredito que isso somente tenha com componentes de terceiros, no mais tenho um exemplo com sombra porém não esta que você nos mostra.
procedure ShadowLabel(oForm : TWinControl; const sText : String = 'Delphi'; iTop : Integer = 0; iLeft : Integer = 0; iDepth : Integer = 3; sFontName : String = 'Arail'; iFontSize : Integer = 10; const sLookingType : String = 'Raised');
var
oLabel1 : TLabel;
oLabel2 : TLabel;
begin
oLabel1 := TLabel.Create(oForm);
oLabel1.Parent := oForm;
oLabel1.Transparent := True;
oLabel1.Font.Name := sFontName;
oLabel1.Font.Size := iFontSize;
oLabel1.Caption := sText;
oLabel1.Font.Color := clWhite;
oLabel2 := TLabel.Create(oForm);
oLabel2.Parent := oForm;
oLabel2.Transparent := True;
oLabel2.Font.Name := sFontName;
oLabel2.Font.Size := iFontSize;
oLabel2.Caption := sText;
oLabel2.Font.Color := clBlack;
if sLookingType = 'Lowered' then begin
oLabel1.Top := iTop + iDepth;
oLabel1.Left := iLeft + iDepth;
oLabel2.Top := iTop;
oLabel2.Left := iLeft;
oLabel2.BringToFront;
end;
if sLookingType = 'Raised' then begin
oLabel1.Top := iTop - iDepth;
oLabel1.Left := iLeft - iDepth;
oLabel1.BringToFront;
oLabel2.Top := iTop;
oLabel2.Left := iLeft;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShadowLabel(TWinControl(self),'DelphiCode.ru',10,10,2,'Arial',28,'Lowered');
ShadowLabel(TWinControl(self),'DelphiCode.ru',60,10,2,'Arial',28,'Raised');
end;