Скачать: CL | DM;

Перерисовка окна при передвижении   Найти похожие ветки 

← →
Дима   (2003-09-18 19:55) [0]

Возможно-ли (точнее как?:) сделать так, чтобы при отключенном в OS эффекте "Show window contents while dragging", форма все-таки отображала содержимое в момент перетаскивания ее по экрану. Например Winamp (конечно там форма не простая:) это делает.
Спасибо!

---

← →
Думкин ©   (2003-09-19 05:20) [1]

procedure WMMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);virtual;

onMouseDown := WMMouseDown;

procedure TMyForm.WMMouseDown;
var Full: boolean;
begin
if Button = mbLeft then
begin
SystemParametersInfo(SPI_GETDRAGFULLWINDOWS, 1, @Full, SPIF_SENDCHANGE);
SystemParametersInfo(SPI_SETDRAGFULLWINDOWS, 0, nil, SPIF_SENDCHANGE);

ReleaseCapture;
Application.MainForm.Perform(WM_SysCommand, $F012, 0);

SystemParametersInfo(SPI_SETDRAGFULLWINDOWS, Cardinal(Full), nil, SPIF_SENDCHANGE);
end
end;

Правда, этот код отключает прорисовку - ну чуть поправить и будет наоборот.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c