Disable dragging / resizing Delphi form

Posted by Maxwell on April 18, 2005

In Reply to: Sub-Form Stops executing when dragged posted by Dave Collins on April 13, 2005

: I have a sub-form which is executing in a tight loop, but calling Application.ProcessMessages. When the form is dragged the loop pauses for the duration of the drag. As the loop is (moderately) time critical, I cannot afford this problem. Can anybody help ?


Disable dragging and resizing the Delphi form by temporarily changing its BorderStyle to bsNone :)

procedure Form1.DoTheLoop;
var
  SavedBorderStyle: TFormBorderStyle;
begin
  SavedBorderStyle := BorderStyle;
  BorderStyle := bsNone;
  // Do loop
  // ...
  BorderStyle := SavedBorderStyle;
end;   
 

Related Articles and Replies