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
|