摘要: 1. 警告信息框 MessageBox(Handle,'警告信息框','警告信息框',MB_ICONWARNING); 2.疑问信息框 MessageBox(Handle,'疑问信息框','疑问信息框',MB_ICONQUESTION); 3.错误提示框 MessageBox(Handle,'错误信息框','错误信息框',MB_ICONERROR); 4.提示信息框 MessageBox(Hand... 阅读全文
posted @ 2011-03-07 14:25 @小宝 阅读(4481) 评论(0) 推荐(0) 编辑
摘要: private procedure FormMove(var Msg: TWMMove); message WM_MOVE; procedure TForm1.FormMove(var Msg: TWMMove);var WorkArea: TRect;begin inherited; if SystemParametersInfo(SPI_GETWORKAREA, 0, @WorkArea, 0... 阅读全文
posted @ 2011-03-07 14:18 @小宝 阅读(176) 评论(0) 推荐(0) 编辑