폼에 그림자 넣기

폼에 그림자 넣기

 

728x90

 

 

 

 

 

 

델파이 힌트(THintWindow)를 보니 그림자가 생기길래

소스를 쫓아가다보니 윈도우클래스 스타일에 CS_DROPSHADOW 라는게 있는걸 알았습니다.

그걸 폼에 적용해보니 되더군여....

 

unit Unit1;

 

interface

 

uses

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

 

type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

protected

procedure CreateParams(var Params: TCreateParams); override;

public

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.CreateParams(var Params: TCreateParams);

begin

inherited CreateParams( Params );

Params.WindowClass.Style := Params.WindowClass.Style or CS_DROPSHADOW;

end;

end.

FormStyle := fsStayOnTop;