안녕하세요. 전에 어디선가 받아놓은 자료인데 한번 보세요...





unit Unit1;



interface



uses

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

ExtCtrls, StdCtrls;



type

TMboxThread = class(TThread)

private

{ private declarations }

protected

procedure Execute; override;

public

constructor Create;

end;



TForm1 = class(TForm)

Button1: TButton;

Timer1: TTimer;

procedure Button1Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

FMboxThread: TMBoxThread;

FWinHandle: HWnd;

end;



var

Form1: TForm1;

CreatedBox: Boolean;



implementation

{$R *.DFM}



constructor TMboxThread.Create;

begin

// thread의 실행이 종료하면 자동으로 free되게 설정

FreeOnTerminate := True;



inherited Create(False);

end;



procedure TMboxThread.Execute;

begin

MessageBox(Application.Handle, '이 메시지박스는 자동으로 없어집니다', '알림',

MB_APPLMODAL + MB_SETFOREGROUND);

CreatedBox := False;

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

CreatedBox := False;

Timer1.Interval := 3000;

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

FMBoxThread := TMBoxThread.Create;

CreatedBox := True;

Timer1.Enabled := True;

end;



procedure TForm1.Timer1Timer(Sender: TObject);

begin

Timer1.Enabled := False;

if Assigned(FMBoxThread) and CreatedBox then

begin

// MessageBox 의 핸들을 찾아서 종료시킨다

FWinHandle := GetForegroundWindow;

SendMessage(FWinHandle, WM_CLOSE, 0, 0);

end;

end;



end.



초보자 wrote:

>

> 타이머를 이용하면 될것 같은데.. 아무리 머리를 짜도 구현이 안되네요.

> 제가 하려는 것은 모달폼을 띄워서 10초가 되면 자동으로 사라지도록 하는 것입니다.

> 타이머의 interval을 10초로 해놓게 되니깐, 10초마다 timer이벤트가 발생이 되지, 제가

> 원하는 10초동안 모달폼이 뜨는 것이 되지 않습니다.

>

> 아시는 분 있으시면. 꼭 도움을 주시기 바랍니다.

>

> 고맙습니다.

>

타이머를 사용하되...

10초후 타이머의 Enable 을 False로 하면.. 10초후엔 타이머 이벤트가 발생하지 않습니다.



다른 방법도 있는데.. 그건 잘 몰라서....





초보자 wrote:

>

> 타이머를 이용하면 될것 같은데.. 아무리 머리를 짜도 구현이 안되네요.

> 제가 하려는 것은 모달폼을 띄워서 10초가 되면 자동으로 사라지도록 하는 것입니다.

> 타이머의 interval을 10초로 해놓게 되니깐, 10초마다 timer이벤트가 발생이 되지, 제가

> 원하는 10초동안 모달폼이 뜨는 것이 되지 않습니다.

>

> 아시는 분 있으시면. 꼭 도움을 주시기 바랍니다.

>

> 고맙습니다.

>