Creating application forms without border, but with shadow (in Windows Vista&Windows 7)

How to do that in WinF开发者_Go百科orms?

In Delphi you will need to override CreateParams procedure of the form you want to make borderless and add CS_DROPSHADOW ($00020000) style to the defaults.

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;

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