Problemas para fechar janela de propriedades do Windows de um formulário Delphi

08/01/2016

1

Olá pessoal,

Estou com o seguinte problema:

O sistema tem botão Ajuda que ao selecionado, abre um formulário que fica a direita da tela. Ao clicar com o botão da direita dentro deste formulário de ajuda e selecionar <PROPRIEDADES> aparece uma tela com informações sobre o formulário, inclusive a origem (caminho) da página, que era o que eu precisava verificar. Essa tela de propriedades pelo que sei é do windows e não do delphi.
Ao tentar fechar essa tela clicando nos botões OK ou CANCELAR ou FECHAR[X] a tela de propriedades não fecha. Só fechar se eu usar as teclas ESC ou ENTER.
Alguém sabe me dizer o que pode estar gerando isso?
Obrigada,
Responder

Post mais votado

08/01/2016

Como ta o codigo dessa chamado do botão Ajuda? Tem um print dessa tela de Propriedades?
Responder

Mais Posts

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.
Responder
Esta são as demais propriedades do Form:

[img]http://arquivo.devmedia.com.br/forum/imagem/463867-20160115-163003.png[/img]
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira