MDI中如何将子窗口中光标的位置显示在父窗口的状态栏上?

Question

对不起，上面的内容贴错了。
你的问题可能是因为你的MDIChild上放了一个align为alClient的控件（如TMemo，下面以New --> Projects --> MDI Application为例），所以你的鼠标实际上是在该控件(Memo1)上移动，故需处理Memo1的OnMouseMove如下：
procedure TMDIChild.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  MainForm.StatusBar.SimpleText := Format( 'X:%d, Y:%d', [x,y]);
end;如果你想通过MDIChild的OnMouseMove处理，如果它的客户区上放有控件，则先设置
Mouse.Capture为该MDIChild的Handle,例：
procedure TMDIChild.FormCreate(Sender: TObject);
begin
  Mouse.Capture := Handle;
end;procedure TMDIChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Mouse.Capture := 0;
  Action := caFree;
end;procedure TMDIChild.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  MainForm.StatusBar.SimpleText := Format( 'X:%d, Y:%d', [x,y]);
end;