procedure wmmove(var msg: tmessage); message wm_move; //trap wm_move message { Public declarations } end;. var. Form1: TForm1;. implementation.
確定! 回上一頁