有关delphi 程序执行流程的问题.

Question

program distributable1;uses
  Forms,
  ufrmUsers in 'ufrmUsers.pas' {frmUsers},{$R *.res}begin
  Application.Initialize;
  TfrmUsers.Create(Application).ShowModal;
  Application.Run;
end.对上面的代码我很疑惑, 一般情况下. 是在执行Application.Run后,才会进入程序..., 而我单步跟踪的结果, 是在TfrmUsers.Create(Application).ShowModal;,进入窗体界面操作完成后,然后执行的Application.Run进入主消息循环. 
那么主消息循环和窗体消息有什么关系吗? 上面的代码中Application.Run有什么意义吗?  
  

Answer 1

TfrmUsers.Create(Application).ShowModal;
  基实这是一个创建窗体的程序，假如没有创建你就不可以运行了

Answer 2

是我没有把意思表达清除. 我知道TfrmUsers.Create(Application).ShowModal的意思. 我疑惑的是
Application.Run;在这种情况下所起的作用... 因为在进入主消息循环之前就已经创建显示窗体了... 
TfrmUsers.Create(Application)创建的窗体是如何处理消息循环的呢?  Application.Run在这里还有什么意义吗?

Answer 3

你应该在关闭了一次窗体后，还会再show一次吧，也就是说这个程序，你要关闭两次同一个窗体！

Answer 4

Application.Run就是个消息循环啊，主要任务就是在这里
接收，派发消息。
    repeat
        HandleMessage
    until Terminated;

Answer 5

叫你这么一说，还真糊涂了。但是从结果上来看，肯定是Delphi或者说Application处理了ShowModel后的消息循环。
说点其他的，或许有点用。
Delphi会自动把Run()放到项目文件的主代码块中。不要自己去调用这个方法，但需要知道这个
方法到底干了些什么。
首先，TApplication.Run()建立一个退出过程，以保证当应用程序退出运行时所有的组件都会得到释放。
然后，它就建立一个循环来处理消息，直到应用程序终止。

Answer 6

代码是刘艺的<<面向对象编成思想中>>中光盘代码一个的工程文件....
 我疑惑的就是在Application.Run;运行之前, 就已经进入窗体并可以处理事件了.单步跟踪发现
动态创建的窗体处理完毕后, 也就是模式返回后才运行的Application.Run;
 竟然窗体在Application.Run;运行之前就可以创建能够处理事件. 那么运行Application.Run;还有什么意义吗? 可以删除吗?

Answer 7

呵呵 你可以把这个 run 删除 看看 一样可以运行的。

Answer 8

给你看看 VCL的源码:function TCustomForm.ShowModal: Integer;
var
  WindowList: Pointer;
  SaveFocusCount: Integer;
  SaveCursor: TCursor;
  SaveCount: Integer;
  ActiveWindow: HWnd;
begin
  CancelDrag;
  if Visible or not Enabled or (fsModal in FFormState) or
    (FormStyle = fsMDIChild) then
    raise EInvalidOperation.Create(SCannotShowModal);
  if GetCapture <> 0 then SendMessage(GetCapture, WM_CANCELMODE, 0, 0);
  ReleaseCapture;
  Application.ModalStarted;
  try
  Include(FFormState, fsModal);
  ActiveWindow := GetActiveWindow;
  SaveFocusCount := FocusCount;
  Screen.FSaveFocusedList.Insert(0, Screen.FFocusedForm);
  Screen.FFocusedForm := Self;
  SaveCursor := Screen.Cursor;
  Screen.Cursor := crDefault;
  SaveCount := Screen.FCursorCount;
  WindowList := DisableTaskWindows(0);
  try
    Show;
    try
      SendMessage(Handle, CM_ACTIVATE, 0, 0);
      ModalResult := 0;
      repeat // ********* BEGIN 开始自己的消息循环。。
        Application.HandleMessage;
        if Application.FTerminate then ModalResult := mrCancel else
          if ModalResult <> 0 then CloseModal;
      until ModalResult <> 0; // END....
      Result := ModalResult;
      SendMessage(Handle, CM_DEACTIVATE, 0, 0);
      if GetActiveWindow <> Handle then ActiveWindow := 0;
    finally
      Hide;
    end;
  finally
    if Screen.FCursorCount = SaveCount then
      Screen.Cursor := SaveCursor
    else Screen.Cursor := crDefault;
    EnableTaskWindows(WindowList);
    if Screen.FSaveFocusedList.Count > 0 then
    begin
      Screen.FFocusedForm := Screen.FSaveFocusedList.First;
      Screen.FSaveFocusedList.Remove(Screen.FFocusedForm);
    end else Screen.FFocusedForm := nil;
    if ActiveWindow <> 0 then SetActiveWindow(ActiveWindow);
    FocusCount := SaveFocusCount;
    Exclude(FFormState, fsModal);
  end;
  finally
    Application.ModalFinished;
  end;
end;由于你创建了主窗口 而每个窗口都有自己的消息循环<当ShowModel>的时候对消息循环进行处理。。
所以后面的run 可以不用。。
源码之前 一目了然 :->