摘要：
1． 警告信息框 MessageBox(Handle,'警告信息框','警告信息框',MB_ICONWARNING); 2．疑问信息框 MessageBox(Handle,'疑问信息框','疑问信息框',MB_ICONQUESTION); 3．错误提示框 MessageBox(Handle,'错误信息框','错误信息框',MB_ICONERROR); 4．提示信息框 MessageBox(Hand... 阅读全文
摘要：
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... 阅读全文