在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
type TfrmMain = class(TForm) . . protected procedure WndProc(var Message: TMessage);override; end; implementation {$R *.dfm} procedure TfrmMain.WndProc(var Message: TMessage); var pos:PWINDOWPOS; begin case Message.Msg of WM_WINDOWPOSCHANGING:begin pos := PWINDOWPOS(Message.LParam); if(pos^.y<20) then pos^.y := 0; if(pos^.x>1004-Width)then pos^.x := 1024-Width-3; end; end; inherited WndProc(Message); end; |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论