摘要:
uses Windows;type TfrmLogin = class(TForm)end;implementation{$R *.dfm}procedure TfrmLogin.FormCreate(Sender: TObject);begin SetWindowLong(Handle,GWL_EXSTYLE,(GetWindowLong(handle,GWL_EXSTYLE) or WS_EX_APPWINDOW));end; 阅读全文
posted @ 2011-08-04 13:46 严武 阅读(683) 评论(0) 推荐(0) 编辑