delphi-7 中的访问冲突

Question

好的，我正在编写一个使用不同形式的教育程序。这是我第一次使用多种形式进行编码，因为我还是一个新手程序员。

单击我的 "sign in" 按钮时，它会打开新表单，但随后会显示访问冲突代码。

    unit SignInNew_u;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, xpman;

type
TSignInNew = class(TForm)
Panel1: TPanel;
Label2: TLabel;
Label3: TLabel;
Label1: TLabel;
Label4: TLabel;
edtName: TEdit;
edtSurname: TEdit;
btnSignIn: TButton;
help: TButton;
procedure btnSignInClick(Sender: TObject);
procedure helpClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
  SignInNew: TSignInNew;
implementation

uses HelpNew_u, ElementsNew;

{$R *.dfm}

 procedure TSignInNew.btnSignInClick(Sender: TObject);
 var
 sName,sSurname,text:string;
 User:TextFile;
 begin

ElementsNew.TMain.Create(self);
ElementsNew.Main.Show;
Main.WindowState:= wsMaximized;

end;
procedure TSignInNew.helpClick(Sender: TObject);
begin
HelpNew := THelpNew.Create(self);
HelpNew.Show;
HelpNew.Width:=281;
HelpNew.Height:=481;
end;

end.

This is how it looks

如有任何帮助，我们将不胜感激。

Answer 1

查看您的代码，您正在实例化一个 class (TMain)

ElementsNew.TMain.Create(self);

但从未将其分配给变量。您正在使用 nil var (Main)

ElementsNew.Main.Show;
Main.WindowState:= wsMaximized;

解决这个问题：

Main := ElementsNew.TMain.Create(self);
Main.Show;

delphi-7 中的访问冲突

Access violation in delphi-7

delphi

delphi-7

access-violation