uses
Forms,
Controls,
Login in 'Login.pas' {frmLogin},
TestMain in 'TestMain.pas' {frmTestMain};
{$R *.RES}
var
ID: string;
begin
Application.Initialize;
With TLogin.Create(Application) do begin
try
if ShowModal = mrOK then ID := EditID.Text;
else begin
Application.Terminate;
Exit;
end;
finally
Free;
end;
end;
Application.CreateForm(TTestMain, TestMain);
TestMain.ID := ID;
Application.Run;
end.
TestMain.ID 는 TestMain.pas에서 Public에 선언한 ID 변수입니다.
이렇게 하시면 로그인시 입력받은 ID를 다른 폼에 넘겨줄 수 있을 겁니다.
질문에 도움이 되었으면 합니다.
예제까지 보여주시고, 초보라서 모르는게 너무 많습니다.
음, 이거 점점 흥미진진해지는군요 ^^;
좋은 답변 남겨주신 여러분께 다시한번 감사드립니다.