안녕하세요. 최용일입니다.

MessageDlgPos란 함수를 써보세요... ShowMessagePos란 함수도 있습니다. 이건 저도 처음 본건데 델파이 7에 있더군요...

^^ 항상 즐코하세요...

안녕하세요~ 구창민입니다.

CreateMessageDialog 를 쓰서 좌표를 주면 되긴 하겠지만,

좀 더 꽁수를 써 보았네여.

아래 코드를 올리니 보시고 참고 하세여.

그럼~ 항상 즐거운 프로그래밍 하시길~~


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure TimerProc(Sender : TObject);
  end;

var
  Form1: TForm1;
  Timer : TTimer;

implementation

{$R *.DFM}

procedure TForm1.TimerProc(Sender : TObject);
var
  MsgBoxHwnd : HWND;
  X, Y : integer;
begin
  MsgBoxHwnd := FindWindow('#32770', '제목');
  if MsgBoxHwnd <> 0 then
  begin
    X := 10;
    Y := 10;
    SetWindowPos(MsgBoxHwnd, 0, X, Y, 0, 0, SWP_NOSIZE or SWP_NOZORDER) ;
  end;
  Timer.Enabled := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer          := TTimer.Create(self);
  Timer.Interval := 10;
  Timer.Enabled  := True;
  Timer.OnTimer  := TimerProc;

  Application.MessageBox('안녕하세요 구창민입니다', '제목', MB_OK or MB_ICONINFORMATION);
  Timer.Free;
end;

end.