Form abre vazio, sem nenhum componente
Quando tendo abrir um form, tanto utilizando o componente menu ou utilizando um botão, é aberto uma tela pequena sem nenhum componente. Eu testei os forms e funcionam normal se abrir direto, porem não consigo navegar.
Eu estou utilizando o método que sempre utilizei. Neste exemplo estou tentando abrir clicando em um botão. Coloquei a unit em “Uses” do form onde esta o botão e utilizei o código abaixo:
procedure TForm_CadEditora.MangaClick(Sender: TObject);
begin
Form_CadManga := TForm_CadManga.CreateNew(nil);
Form_CadManga.ShowModal;
Form_CadManga.Free;
end;
O form que deveria ser aberto era este:
object Form_CadManga: TForm_CadManga
Left = 0
Top = 0
Align = alClient
Caption = 'Form_CadManga'
ClientHeight = 400
ClientWidth = 800
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
O resultado é este, um form sem nada:
https://drive.google.com/open?id=1NEBRModfSZ0DOvbjXJ3tVrV627CwynE3
Alguém sabe o que pode estar errado?
Eu estou utilizando o método que sempre utilizei. Neste exemplo estou tentando abrir clicando em um botão. Coloquei a unit em “Uses” do form onde esta o botão e utilizei o código abaixo:
procedure TForm_CadEditora.MangaClick(Sender: TObject);
begin
Form_CadManga := TForm_CadManga.CreateNew(nil);
Form_CadManga.ShowModal;
Form_CadManga.Free;
end;
O form que deveria ser aberto era este:
object Form_CadManga: TForm_CadManga
Left = 0
Top = 0
Align = alClient
Caption = 'Form_CadManga'
ClientHeight = 400
ClientWidth = 800
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
O resultado é este, um form sem nada:
https://drive.google.com/open?id=1NEBRModfSZ0DOvbjXJ3tVrV627CwynE3
Alguém sabe o que pode estar errado?
Celio Santos
Curtidas 3
Respostas
Jerson Boer
04/10/2018
Olá Célio, experimente trocar:
por este:
Form_CadManga := TForm_CadManga.CreateNew(nil);
por este:
Form_CadManga := TForm_CadManga.Create(Self);
GOSTEI 0