uses Windows;procedure TformLogin.FormCreate(Sender: TObject);begin SetWindowLong(Handle,GWL_EXSTYLE,(GetWindowLong(handle,GWL_EXSTYLE) or WS_EX_APPWINDOW));end;
Delphi XE2通过编译
本文共 235 字，大约阅读时间需要 1 分钟。
uses Windows;procedure TformLogin.FormCreate(Sender: TObject);begin SetWindowLong(Handle,GWL_EXSTYLE,(GetWindowLong(handle,GWL_EXSTYLE) or WS_EX_APPWINDOW));end;
Delphi XE2通过编译
转载于:https://www.cnblogs.com/LceMeaning/p/4213828.html