Показывать содержимое формы при перетаскивании

Delphi , Программа и Интерфейс , Размеры и Положение

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure ShowContents(Value: Boolean);
 begin
   SystemParametersInfo(SPI_SETDRAGFULLWINDOWS, Ord(Value), nil, 0);
 end;

 // To Show window contents while dragging: 

procedure TForm1.Button1Click(Sender: TObject);
 begin
   ShowContents(True);
 end;

 // To disable this option call the function: 

procedure TForm1.Button1Click(Sender: TObject);
 begin
   ShowContents(False);
 end;

Here's the translation of the text into Russian:

Код написан на языке Delphi, который используется для создания приложений под Windows.

Процедура ShowContents принимает булевое значение в качестве аргумента и устанавливает системный параметр для отображения или скрытия содержимого окон при перетаскивании. Системный параметр SPI_SETDRAGFULLWINDOWS контролирует это поведение.

В примере есть два процедура:

1. Button1Click: Эта процедура вызывается, когда кнопка с надписью "Button1" кликается. Она вызывает процедуру ShowContents и передает аргумент True, чтобы отобразить содержимое окон при перетаскивании.
2. Другая Button1Click: Эта процедура также вызывается, когда та же кнопка кликается, но на этот раз она передает аргумент False, чтобы скрыть содержимое окон при перетаскивании.

Вот предложенная альтернативная решение с использованием встроенной функциональности Delphi:

Вы можете использовать свойство DragMode формы для достижения того же результата. Установите его в dmAutomatic, чтобы отобразить содержимое окон при перетаскивании, или установите в dmManual, чтобы скрыть их.

procedure TForm1.Button1Click(Sender: TObject);
begin
  if DragMode = dmAutomatic then
    DragMode := dmManual
  else
    DragMode := dmAutomatic;
end;

В этой коде процедура Button1Click переключает свойство DragMode между dmAutomatic и dmManual. Таким образом, вам не нужно вызывать отдельную процедуру, как ShowContents.

Обратите внимание, что это подход работает только для формы, на которой находится кнопка. Если вы хотите контролировать поведение перетаскивания для всех окон в вашем приложении, вам может потребоваться использовать функцию SystemParametersInfo и установить системный параметр SPI_SETDRAGFULLWINDOWS.

В статье описывается способ отображения содержимого формы при перетаскивании в Delphi, используя процедуру SystemParametersInfo и переменную Ord.

Комментарии и вопросы

:: Главная :: Размеры и Положение ::