서브 폼에서 델파이 스레드 오류

Question

서브 폼에서 스레드를 실행할 때 문제가 있습니다.

기본 폼

type 
    TForm1 = class(TForm) 
    Button1: TButton; 
    procedure Button1Click(Sender: TObject); 
    private 
    { Private declarations } 
    public 
    { Public declarations } 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

uses Unit2; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
TForm2.create(form1).ShowModal; 
end; 

하위 폼

type 
TMthread=class(Tthread) 
protected 
procedure execute; override; 
end; 
type 
TForm2 = class(TForm) 
    Label1: TLabel; 
    procedure FormShow(Sender: TObject); 
    private 
    public 
    end; 

var 
    Form2: TForm2; 

implementation 

{$R *.dfm} 

uses Unit1; 

procedure TMthread.Execute; 
begin 
    synchronize(procedure 
       begin 
       sleep(200); 
       freeonterminate:=true; 
       sleep(200); 
       form2.label1.Caption:='beep'; 
       form1.button1.Caption:='beep'; 
       end); 
end; 

procedure TForm2.FormShow(Sender: TObject); 
var Loadcombo2: TMthread; 
begin 
    Loadcombo2:=TMthread.Create(False); 
end; 

프로그램

program Project1; 

uses 
    Vcl.Forms, 
    Unit1 in 'Unit1.pas' {Form1}, 
    Unit2 in 'Unit2.pas' {Form2}; 

{$R *.res} 

begin 
    Application.Initialize; 
    Application.MainFormOnTaskbar := True; 
    Application.CreateForm(TForm1, Form1); 
    Application.Run; 
end. 

Form2.Label1.caption에 액세스하려고 할 때 내가 실행 과정에서 오류가 발생했습니다.

내 테스트 :.

내가 초기화 섹션 (마지막 코드)에 하위 폼 (형식 2)를 추가 응용 프로그램이 오류없이 실행되지만를 Form2에 Label1.caption을 변경하지 않는 경우 (Button1.caption 메인 폼에서 변경됨)

정확하게 동일한 스레드를 주 폼에 넣으면 문제없이 작동합니다.

Answer 1

변수 Form2은 할당되지 않습니다. 전역 변수이기 때문에 값은 nil입니다. 따라서 Form2의 구성원을 참조하려고하면 오류가 발생합니다.

이 같은 Form2의 인스턴스를 생성 :

Form2 := TForm2.Create(Form1); 
Try 
    Form2.ShowModal; 
Finally 
    Form2.Free; 
End;