unit Unit1;

interface

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

type
TForm1 = class(TForm)
   ListBox1: TListBox;
   procedure FormClick(Sender: TObject);
   procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
     Shift: TShiftState; X, Y: Integer);
   procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
     Shift: TShiftState; X, Y: Integer);
   procedure FormDblClick(Sender: TObject);
private
   { Private declarations }
public
   { Public declarations }
   i:integer;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormClick(Sender: TObject);
begin
ListBox1.Items.Add(IntToStr(i) + ' : FormClick');
inc(i);
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
  ListBox1.Items.Add(IntToStr(i) + ' : FormMouseDown');
  inc(i);
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
  ListBox1.Items.Add(IntToStr(i) + ' : FormMouseUp');
  inc(i);
end;

procedure TForm1.FormDblClick(Sender: TObject);
begin
  ListBox1.Items.Add(IntToStr(i) + ' : FormDblClick');
  inc(i);
  MessageDlg('test', mtWarning, [mbOK], 0);
end;

이렇게 단순히 이벤트순서를 출력하게끔 코딩하고
폼에다가 드블클릭 딱한번만 했거덩요..'타탁'
했는데요..

결과는

0: FormMouseDown
1: FormClick
2: FormMouseUp
3: FormDblClick
=> 여기서 메세지 박스 나오겠죠..
4: FormMouseDown

이렇게 나오네요.. FormMouseDown 이벤트가 제일 나중에 나오는게 맞는건가요?
마지막에 FormMouseUp이 나와야 되는게 아닌가요?..ㅠㅠ

그런데 희안한건 드블클릭시 메세지 박스출력하는 부분을 주석처리하면

0: FormMouseDown
1: FormClick
2: FormMouseUp
3: FormDblClick
4: FormMouseDown
5: FormMouseUp

이렇게 됩니다... 이게 정상적인거 아닌에요?
이벤트 땜에 코딩 엉망되게 생겼네요..ㅠㅠ