[V77]

Привет, дело вот в чём:
Нужно приложить к TImage тень, когда BorderStyle:=clNone;.

Есть вариант:

Код:

protected
    procedure CreateParams(var Params: TCreateParams); override;
 
procedure TMainForm.CreateParams(var Params: TCreateParams);
const CS_DROPSHADOW = $00020000;
begin
  inherited;                                           
  Params.WindowClass.Style := Params.WindowClass.Style or CS_DROPSHADOW;
end;

Но он даёт тень форме, а формы та нет, есть только TImage ...

Спасибо за помощь : ) !