delphi4arab منتديات دلفي للعرب

إقتباس :if ssLeft in Shift then
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);
if Top < 0 then Top := 0;
if Top + Height > Screen.Height then Top := Screen.Height - Height;
if Left < 0 then Left := 0;
if Left + Width > Screen.Width then Left := Screen.Width - Width;
end;