Problemas para fechar janela de propriedades do Windows de um formulário Delphi
08/01/2016
0
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,
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,
Jeane Menghelli
Curtir tópico
+ 0
Responder
Post mais votado
08/01/2016
Como ta o codigo dessa chamado do botão Ajuda? Tem um print dessa tela de Propriedades?
Raylan Zibel
Responder
Mais Posts
15/01/2016
Jeane Menghelli
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.
[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
15/01/2016
Jeane Menghelli
Esta são as demais propriedades do Form:
[img]http://arquivo.devmedia.com.br/forum/imagem/463867-20160115-163003.png[/img]
[img]http://arquivo.devmedia.com.br/forum/imagem/463867-20160115-163003.png[/img]
Responder
Clique aqui para fazer login e interagir na Comunidade :)