【结贴】DELPHI 的 windows message 如何在X3 中实现[结案]

atiger

呵呵，不用这么客气，我们就是协助客户解决问题的。

仅仅一个pas文件，也需要根据平台的导入方法，在delphi 6.0 的SP2 上打成包，然后再到平台上调用

amao800613

最初由 e888lp 发布
[B]我想在X3中实现 ‘运行期模拟设计期时拖动控件及改变控件大小’ 需要使用到消息 MESSAGE 但编译通不过，也没找到例子 [/B]

例如在的Form里有个 Memo1 控件需要拖动,在平台上运行的时候就可以搞定了.

procedure TMainForm.Memo1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
    Borland.Delphi.Windows.ReleaseCapture;
    Memo1.Perform(Borland.Delphi.Messages.WM_SYSCOMMAND,$F009,0);//移动位置
end;

  Memo1.Perform(Borland.Delphi.Messages.WM_SYSCOMMAND,$F008,0);//改变大小

e888lp

多谢，小弟按此方法已实现