WINDOWS消息问题，高手帮忙！(100分)

wk_knife · 2006-04-14

我写了下面一段测试代码。单击鼠标开始SETCAPTURE，进入一个消息循环，绘制多边形。 双击退出循环。在消息循环中，我点击窗体的关闭按钮，想关闭窗体，结果只是结束了循环。如何才能实现关闭窗体呢？ unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs; type  TShape=class  private    Pts:array of TPoint;  public    function AddPoint(Hint:Integer;const CoordX,CoordY:Integer):Boolean;virtual;    procedure Draw(Canvas:TCanvas);  end;  TForm1 = class(TForm)    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;      Shift: TShiftState; X, Y: Integer);    procedure FormCreate(Sender: TObject);    procedure FormPaint(Sender: TObject);  private    { Private declarations }    P:array of TShape;  public    { Public declarations }    IsCreating:Boolean;    continue:Boolean;  end; var  Form1: TForm1; implementation //uses csintf; {$R *.dfm} procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer); var  Msg:TMsg;  AShape:TShape;  K:integer;  AP:TPoint; begin  if Button=mbLeft then  begin    if not continue then  //如果没有开始循环    begin      continue:=True;      AShape:=TShape.Create; //创建个新的多边形对象      K:=Length(P);      SetLength(P,K+1);      p[k]:=AShape;  //加入到列表    end;  end;    SetCapture(Handle);      while Continue do  //进入循环    begin      while not PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do      begin      end;      if (GetCapture<>Handle) or (Msg.message = WM_CANCELMODE)   then        continue:=False  else if (Msg.message >= WM_MOUSEFIRST) and (Msg.message <= WM_MOUSELAST) then  begin        if PtInRect(ClientRect,Point(LOWORD(Msg.lParam),HIWORD(msg.lParam))) then        begin          continue:=AShape.AddPoint(Msg.message,LOWORD(Msg.lParam),HIWORD(msg.lParam));          invalidate;        end        else        begin          DispatchMessage(msg);        end;      end      else        DispatchMessage(msg);    end;    // while    ReleaseCapture; end; procedure TForm1.FormCreate(Sender: TObject); begin  IsCreating:=False;  continue:=False;  DoubleBuffered:=True; end; procedure TForm1.FormPaint(Sender: TObject); var  I: Integer; begin  for I := Low(p) to High(P) do    // Iterate    p.Draw(Canvas); end; { TShape } function TShape.AddPoint(Hint:Integer; const CoordX,  CoordY: Integer): Boolean; var  A:Integer; begin  result:=True;  if Hint=WM_LBUTTONDBLCLK then  begin    //codeSite.SendInteger('WM_LBUTTONDBLCLK',WM_LBUTTONDBLCLK);    result:=False;    A:=Length(pts);    SetLength(pts,A+1);    pts[A]:=Point(CoordX,CoordY);  end  else if Hint=WM_LBUTTONUP then  begin    //codeSite.SendInteger('WM_LBUTTONUP',WM_LBUTTONUP);    A:=Length(pts);    SetLength(pts,A+1);    pts[A]:=Point(CoordX,CoordY);  end; end; procedure TShape.Draw(Canvas: TCanvas); begin  if Length(pts)>1 then   canvas.Polygon(pts); end; end.

japhe · 2006-04-14

ExitProcess(1); 直接结束进程好了

wk_knife · 2006-04-14

请问楼上，ExitProcess(1);该写在哪个位置啊？[

] 多想想再回答吧[

]

网中戏 · 2006-04-14

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin   Action := caFree;   Form1:= nil; end;

wk_knife · 2006-04-14

[

][

] 混分也不能这样不负责任啊！ 消息都被干掉了，哪里还有机会执行FormClose

creation-zy · 2006-04-14

似乎可以这样：每次获得消息的时候进行检查，如果是WM_CLOSE或者WM_QUIT就记录下来 并退出循环，在ReleaseCapture;之后检查获得的最后一个消息，重新向主窗体发送一遍（ 直接Close亦可）。

wk_knife · 2006-04-14

我在循环中加了对WM_CLOSE或者WM_QUIT的处理也不行！所以才有一问。 while Continue do    begin      while not PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do      begin      end;      if (Msg.message = WM_CLOSE) or (Msg.message = WM_QUIT)  then        Application.Terminate  else if (GetCapture<>Handle) or (Msg.message = WM_CANCELMODE)   then        continue:=False  else if (Msg.message >= WM_MOUSEFIRST) and (Msg.message <= WM_MOUSELAST) then  begin        if PtInRect(ClientRect,Point(LOWORD(Msg.lParam),HIWORD(msg.lParam))) then        begin          continue:=AShape.AddPoint(Msg.message,LOWORD(Msg.lParam),HIWORD(msg.lParam));          invalidate;        end        else        begin          DispatchMessage(msg);        end;  end      else        DispatchMessage(msg);    end;    // while 不知是哪里的问题。

creation-zy · 2006-04-14

可能是因为你接管了消息的缘故。最好是：一旦检测到，先释放消息处理权并跳出循环（ 可以在外部用try...except结构，在循环内raise Exception，保证好使

），然后再做其 它的处理——试试？

wk_knife · 2006-04-14

哈,你倒是拿异常不当异常使,这招创意很妙,我试试!

leeaman · 2006-04-16

你可以先判断mouse的位置然后再执行你的程序，不在客户区就由默认的处理过程处理！

wk_knife · 2006-04-17

楼上的办法不行的。 我的问题是这样的，按鼠标左键，开始一个消息循环，绘制一个多边形，直到双击鼠标结束绘制，并退出消息循环。在消息循环中我会从线程的消息队列中用PEEKMESSAGE移除消息，也就是说默认的消息处理过程是处理不到这些消息的。如果如楼上说的办法，就要退出我的这个消息循环。这样我的绘制动作就不能连续了。 现在的问题估计是这样的，我现在这样处理WM_LBUTTONDOWN后，默认的消息处理过程就得不到WM_LBUTTONDOWN消息了，也就无法触发WM_CLOSE或WM_QUIT消息了，窗体就关不掉了，而我即使在处理WM_LBUTTONDOWN消息后DispatchMessage(msg)，也无法产生WM_CLOSE，我估计是系统尚未来及处理WM_LBUTTONDOWN，就又被我的消息循环给移走了。所以，如何触发WM_CLOSE消息才是我要的。在标题栏上自己定位总不是个好办法吧。 如果就问题论问题，这个问题并不是那么好解决的。 当然我也有其他的处理办法，就这个问题，我会限制鼠标活动区域在客户区，只有绘制完成才解除限制。 另外有些人觉得这样比较累，直接为每个鼠标消息写一个处理过程不更省事么？我是基于两个方面考虑的： 1、一个复杂的矢量图程序有很多操作方法不一样的图元，象一般的图元的操作、带联结的图元的操作以及图元的仿射变换操作，这些操作方法如果分散写在不同的消息处理过程中，很难维护的，而且如果以后的开发者重载这些消息后，编程很容易引起错误。 2、以上面的方法，我的核心代码还有可能不得不暴露出来。通过上面的取得消息的循环方法，为每种操作编写一个处理类，然后只需要在WM_LBUTTONDOWN启动循环就可以了。这样我可以只发布我的窗口类的源码，而不发布处理各种图元操作的源码，而且其他用户在以后的开发中也不容易出现问题，因为他的处理方法在我的循环执行期间，很难有机会得到执行机会，除非我给他一个。

wk_knife · 2006-06-07

多人接受答案了。

WINDOWS消息问题，高手帮忙！(100分)

wk_knife

Unregistered / Unconfirmed

japhe

Unregistered / Unconfirmed

wk_knife

Unregistered / Unconfirmed

网中戏

Unregistered / Unconfirmed

wk_knife

Unregistered / Unconfirmed

creation-zy

Unregistered / Unconfirmed

wk_knife

Unregistered / Unconfirmed

creation-zy

Unregistered / Unconfirmed

wk_knife

Unregistered / Unconfirmed

leeaman

Unregistered / Unconfirmed

wk_knife

Unregistered / Unconfirmed

wk_knife

Unregistered / Unconfirmed

Similar threads