Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = True
Position = poScreenCenter
ShowHint = True
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 799
Height = 400
Caption = 'Panel1'
TabOrder = 0
end
end
O resultado é este, um form sem nada:
https://drive.google.com/open?id=1NEBRModfSZ0DOvbjXJ3tVrV627CwynE3
Alguém sabe o que pode estar errado?
Carregando comentários...