박형진 께서 말씀하시기를...

> 안녕하세요 답변이 없어서 다시올립니다

> quickreport 미리보기를 for문으로 10번 돌렸습니다.

> 10번 다 봐야지 실행이 끝나는데 중간에 빠져나올수 있는

> 방법이 있을까요 ?

> 예를 들어서 무슨키를 누르면 빠져나올수 있을까요? coding으로 처리법이나

> 함수등 !

> 좋은 답변 부탁드립니다

> 감사합니다.

>

>



어떤 식으로 돌아가는지는 잘 모르겠지만 아래 소스는 무한 루프를 돌다가 Ctrl+C를 누르면 무한 루프를 빠져나오는 소스이니 참조 하세요..



unit Unit1;



interface



uses

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

StdCtrls;



type

TForm1 = class(TForm)

Button1: TButton;

Edit1: TEdit;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;

Check: Boolean;



implementation



{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);

var i: integer;

begin

i := 0;

while True do begin

i := i + 1;

Application.ProcessMessages;

if Check then

break;

end;

Edit1.Text := IntToStr(i);

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

check := False;

KeyPreview := True;

end;



procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if Shift = [ssCtrl] then

if (key = Ord('c')) or (key = Ord('C')) then

Check := True;

end;



end.