초보라네여~ wrote:

> 제가 두개의 폼을 가지고 프로그램을 짤려고 하는데여........

>

> 모 더 만들 생각이지만......

>

> 근데 폼1에서 버튼을 클릭하면 폼2를 여는 걸 하려고 하는데.....

>

> 폼2.show라는 걸 사용하면 폼2가 실행이 안 되거든여...........

>

> 폼2에 작업해 놓은 것이 암 껏두 사용할 수가 없어여..... 그냥 말 그대로 보여주기만 하는 것같아서.........

>

> 음... 글고 esc키를 사용해서 그걸 클릭하면 close시키는 걸 하려고 하는데....

>

> 전에 한 것은 됐는데 지금 할려니까 안 되네여.....

>

> keypress를 사용해서 if문 사용해서 했는데........

>

> 함 아시는 분은 쫌 가르쳐 주시겠어여?!!!

>

> 부탁드리어요~!!!!!



form1과 form2가 있다고 하구요.. form1에서 form2를 call한다고 하면



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;



type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation

uses

unit2;

{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);

begin

form2 := tform2.create(self);

form2.show;

end;



end.





form2에서 esc key로 폼을 닫으려면



unit Unit2;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;



type

TForm2 = class(TForm)

procedure FormKeyPress(Sender: TObject; var Key: Char);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form2: TForm2;



implementation



{$R *.DFM}



procedure TForm2.FormKeyPress(Sender: TObject; var Key: Char);

begin

if key = char(vk_escape) then

close;

end;



end.

초보라네여님아... 프로젝트 파일의 소스와.. 하시고자 하는 내용의 소스를 같이

올려보세요.. 기본적으로 간단한 내용이며, 델파이 책을보면 예제로도 많이 나와있는

내용입니다.. 님의 코딩자체의 문제가 있어서 안되는거 같으니까.. 소스를 올려보세요





초보라네여~ wrote:

> 제가 두개의 폼을 가지고 프로그램을 짤려고 하는데여........

>

> 모 더 만들 생각이지만......

>

> 근데 폼1에서 버튼을 클릭하면 폼2를 여는 걸 하려고 하는데.....

>

> 폼2.show라는 걸 사용하면 폼2가 실행이 안 되거든여...........

>

> 폼2에 작업해 놓은 것이 암 껏두 사용할 수가 없어여..... 그냥 말 그대로 보여주기만 하는 것같아서.........

>

> 음... 글고 esc키를 사용해서 그걸 클릭하면 close시키는 걸 하려고 하는데....

>

> 전에 한 것은 됐는데 지금 할려니까 안 되네여.....

>

> keypress를 사용해서 if문 사용해서 했는데........

>

> 함 아시는 분은 쫌 가르쳐 주시겠어여?!!!

>

> 부탁드리어요~!!!!!