Как можно уменьшить мерцание формы при переносе?

← →
Dmitry_04 (2005-02-03 15:40) [0]

Как можно уменьшить мерцание формы при переносе? У меня форма состоит из нескольких Image... и они при переносе мерцают :(
Форма переносится вот как:
procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton; //FormMovie Shift: TShiftState; X, Y: Integer); const SC_DragMove = $F012; begin ReleaseCapture; perform(WM_SysCommand, SC_DragMove, 0); end;

Я в интернете посмотрел, есть такой способ:
constructor TMyControl.Create; begin inherited; ControlStyle := ControlStyle + [csOpaque]; end;

А где это прописать? В самом компоненте Image или в программе гдето?

← →
Proga (2005-02-03 17:18) [1]

Может это поможет:
(в формкреейте)
Form1.DoubleBuffered:=true;

← →
Чапаев © (2005-02-03 17:52) [2]

Image1.Transparent:=False очень хорошо помогает.

← →
Dmitry_04 (2005-02-04 06:48) [3]

У меня какраз Image1.Transparent=False. А куда всетаки писать тот пример который я привел:
constructor TMyControl.Create; begin inherited; ControlStyle := ControlStyle + [csOpaque]; end;
Или это все фигня?

← →
Dmitry_04 (2005-02-04 17:27) [4]

???

← →
Brenagwynn (2005-02-04 17:30) [5]

Image1.ControlStyle := Image1.ControlStyle + [csOpaque]; Image2.ControlStyle := Image2.ControlStyle + [csOpaque];
Например в FormCreate.

Попробуй:

Form1.DoubleBuffered:=true;

Как можно уменьшить мерцание формы при переносе? Найти похожие ветки