Erro na chamada do form
02/03/2009
0
procedure TfrmRelGerencialMT.BitBtn1Click(Sender: TObject); begin frmDetalhe := TfrmDetalhe.Create(Self); frmDetalhe.Show; end;
Paulo
Posts
02/03/2009
Felipe_b350
nos meus Projetos eu usso o seguinte.
[b:48ec8b9896]Form.showmodal;[/b:48ec8b9896]
ou
[b:48ec8b9896]Form.show;[/b:48ec8b9896]
v c dah certo.
02/03/2009
Jose Luiz
Coloque o form em avaliable.
chame dessa forma:
begin
try
frmCliente:=TFrmCliente.Create(Application);
frmCliente.ShowModal;
Finally
frmCliente.Free;
end;
end;
sem chance de dar erro..
Até..
Jose luiz
03/03/2009
Discorpio
O erro é uma coisa bem simples.
Voce declarou a Unit do Form frmDetalhe na seção Uses no Form de onde voce o invoca :?:
Uses Detalhe // onde Detalhe é o nome da Unit do Form frmDetalhe
Se assim o não fizer, a instância frmDetalhe que está declarada globalmente na Unit Detalhe não será enxergada no Form atual.
03/03/2009
Paulo
03/03/2009
Marco Salles
escreveu :
Faz o que ???
Internamente relativo a qual situação ???
Adiciona o Form ??? Ou a Unit que contem o Form ??
Vc adiciona No Projeto < Add Projects >
Pelo Objeto Repository ??
Não ira dar erro na chamada , mas passar self como Proprietário não é
indicado pelos grandes mestre que escrevem , a não ser que este form
tenha o tempo de vida igual a da Aplicação. E Tb não use o a Criação dentro do Try
Try Cria Mostra Finaliza Destroe
Esta Estrutura esta Errada ... O CERTO é assim :
Cria Try Mostra Finaliza Destroe
Isto eu entende e concordo
Vc poderia mostrar um exempo passo a passo para que possamos testar
e entender o que vc esta dizendo com tudo isto..
Obrigado
14/06/2019
Wanderson Santos
[code:1:e4d93f597a]procedure TfrmRelGerencialMT.BitBtn1Click(Sender: TObject);
begin
frmDetalhe := TfrmDetalhe.Create(Self);
frmDetalhe.Show;
end;[/code:1:e4d93f597a]
A Solução é simples, provavelmente na criação deste formulario retirou a váriavel global dela. Exemplo Abaixo
unit uformStatus;
interface
uses
MIDASLIB,Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
Tformstatus = class(TForm)
Panel1: TPanel;
lbl1: TLabel;
lblStatus: TLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
//Provavelmente retirou ou não existe este trecho observe no seu código.
//*************************************************************************
var
formstatus: Tformstatus;
//*************************************************************************
implementation
{$R *.dfm}
end.
Clique aqui para fazer login e interagir na Comunidade :)