How can I make my form resize more smoothly?

问题

When resizing a form with many controls, the form looks bad because of flickering. What are some tips to have a smoother form resizing?

回答1:

procedure TForm1.WMEnterSizeMove(var Message:TWMMove);
begin
  Self.DisableAlign;
end;

procedure TForm1.WMExitSizeMove(var Message:TWMMove);
begin
  Self.EnableAlign;
end;

回答2:

Try using WM_SETREDRAW (not LockWindowUpdate).

You might also have a look at DeferWindowPos.

回答3:

Complex forms are often made up of nested panels, and the repaint process may cause flickering. If this is the case with your project there are two easy solutions that might help:

Disable the property FullRepaint on your panels.
Enable the property DoubleBuffered on your form. You won't find this property on the object inspector, so put DoubleBuffered := true; in FormCreate.

回答4:

I've got around this as follows:

In the 'OnResize' event of the form, have a routine to hide all child controls and then start a timer with a tick of about 500ms.
When the timer fires, disable it and then set all child controls to visible.

By playing around with this activity you get a form that goes blank whilst you are sizing it, but then populates itself neatly when you 'let go'.

Bri

回答5:

I avoid flicker by aligning no more than 1 non-alClient component per parent, always paired with a alClient (e.g. a TPanel) to contain all other components. Group them in panels without borders.

Say you want to allign three things: alLeft, alTop and alClient for the main view. Dont do this: Form alTop alLeft alClient // your main view

But instead embed these as follows: Form alTop alClient // panel to avoid flicker alLeft alClient // your main view

Same story for embedding several alTop elements.

来源：https://stackoverflow.com/questions/1454190/how-can-i-make-my-form-resize-more-smoothly

标签

Delphi