안녕하세요 꾸벅~!
program ct1;
uses
Forms,
test1 in 'test1.pas' {Form1},
test2 in 'test2.pas' {Form2};
{$R *.RES}
function CheckUser: Boolean;
begin
Result := False;
Try
Form2 := Form2.Create(Application);
if Form2.ShowModal = mrOK then
begin
if Form2.Edit1.Text = 'oe' then
Result := True;
end;
finally
Form2.free;
end;
end;
begin
if CheckUser then begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
// Application.CreateForm(TForm2, Form2);
Application.Run;
end;
end.
패스워드 창이 먼저 뜨고 유져가 확인되면 넘어가는 프로그램입니다.
여기서는 간단하게 OK 버턴만 누르면 넘어가게 되어 있는데
mrOK가 Undeclared identifier라고 나옵니다. 저기 밑에 어떤분께서 답변한걸
토대러 실습해보는데 왜 지정되어 있지 않다고 나오는지 저의 낮은 실력으론
알수 없네요 답변 부탁 드립니다. 꾸벅~!
> 안녕하세요 꾸벅~!
> program ct1;
>
> uses
> Forms,
> test1 in 'test1.pas' {Form1},
> test2 in 'test2.pas' {Form2};
>
> {$R *.RES}
> function CheckUser: Boolean;
> begin
> Result := False;
> Try
> Form2 := Form2.Create(Application);
> if Form2.ShowModal = mrOK then
> begin
> if Form2.Edit1.Text = 'oe' then
> Result := True;
> end;
> finally
> Form2.free;
> end;
> end;
>
> begin
> if CheckUser then begin
> Application.Initialize;
> Application.CreateForm(TForm1, Form1);
> // Application.CreateForm(TForm2, Form2);
> Application.Run;
> end;
> end.
> 패스워드 창이 먼저 뜨고 유져가 확인되면 넘어가는 프로그램입니다.
> 여기서는 간단하게 OK 버턴만 누르면 넘어가게 되어 있는데
> mrOK가 Undeclared identifier라고 나옵니다. 저기 밑에 어떤분께서 답변한걸
> 토대러 실습해보는데 왜 지정되어 있지 않다고 나오는지 저의 낮은 실력으론
> 알수 없네요 답변 부탁 드립니다. 꾸벅~!
uses
Forms,
Controls,
test1 in 'test1.pas' {Form1},
test2 in 'test2.pas' {Form2};