Fórum Problemas para fechar janela de propriedades do Windows de um formulário Delphi #541878

o Còdigo é este...
[img]http://arquivo.devmedia.com.br/forum/imagem/463867-20160115-162912.png[/img]
unit AjudaEsp;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, VAZIOH, OleCtrls, SHDocVw, ComCtrls, ToolWin, KWRSkin, StdCtrls,
Funcoes, FuncSS;

type
TFORM_AJUDAESP = class(TFORM_VAZIO_H)
WB_AJUDA: TWebBrowser;
procedure FormActivate(Sender: TObject);
procedure BT_FECHAClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
Paginahtm : string;
PluginName: String;
public
{ Public declarations }
constructor create(AOwner: TComponent; Pagina: string; AANCORA: String = ''; APluginName: String = '');reintroduce;
end;

var
FORM_AJUDAESP: TFORM_AJUDAESP;

implementation

uses
ManagerPluginsBpl.Consts;

{$R *.dfm}

constructor TFORM_AJUDAESP.Create(AOwner: TComponent; Pagina: string; AANCORA: String = ''; APluginName: String = '');
begin
if AANCORA <> '' then
PaginaHtm := Pagina + '#'+AANCORA
else
PaginaHtm := Pagina;
PluginName := APluginName;
//PluginName := StringReplace(PluginName, '.bpl', '', []);
//PluginName := StringReplace(PluginName, '.Client'+sVerDelphi, '', []);
PluginName := StringReplace(APluginName, '.bpl', '', []);
PluginName := StringReplace(APluginName, '.Client'+sVerDelphi, '', []);
inherited Create(AOwner);
end;

procedure TFORM_AJUDAESP.BT_FECHAClick(Sender: TObject);
begin
inherited;
Close;
end;

procedure TFORM_AJUDAESP.FormActivate(Sender: TObject);
var PaginaHelp :String;
begin
inherited;
{$IFDEF RESVD}
PaginaHelp := ExtractFilePath(Application.ExeName) + 'Help\ResourceNFe\'+PaginaHtm;
{$ENDIF}
{$IFDEF DLL}
PaginaHelp := ExtractFilePath(Application.ExeName) + 'Help\Custom' + Sistema + '\'+PaginaHtm;
{$ENDIF}
if PluginName <> '' then
PaginaHelp := ExtractFilePath(Application.ExeName) + 'Help\' + PluginName + '\paginas\'+PaginaHtm
else if PaginaHelp = '' then
{$IF (DEFINED(SS) OR DEFINED(NV)) AND (DEFINED(CB) OR DEFINED(FP) OR DEFINED(LF) OR DEFINED(VD) OR
DEFINED(AP) OR DEFINED(CF) OR DEFINED(AE) OR DEFINED(CE) OR DEFINED(FN) OR DEFINED(PP) OR
DEFINED(AT) OR DEFINED(CC) OR DEFINED(AC) OR DEFINED(CP) OR DEFINED(QL) OR DEFINED(BI))}
PaginaHelp := 'http://help.supersoft.com.br/' + Sistema + '/paginas/' + PaginaHtm;
{$ELSE}
PaginaHelp := ExtractFilePath(Application.ExeName) + 'Help\' + Sistema + '\paginas\'+PaginaHtm;
{$IFEND}

WB_AJUDA.Navigate(PaginaHelp);

end;

procedure TFORM_AJUDAESP.FormCreate(Sender: TObject);
begin
inherited;
CentralizaTela(self, nil);
end;

end.

Esta são as demais propriedades do Form:

[img]http://arquivo.devmedia.com.br/forum/imagem/463867-20160115-163003.png[/img]