A pesar de todo esto ...
Código Delphi
[-]procedure TForm.CreateParams(var Params: TCreateParams);
const
CS_DROPSHADOW = $00020000;
var
B : longbool;
begin
inherited;
B := True;
SystemParametersInfo(SPI_SETDROPSHADOW,0,B,0);
Params.WindowClass.Style := Params.WindowClass.Style or CS_DROPSHADOW;
end;
sigue sin funcionar con Form.Showmodal
