VPF::Ресайзинг и перетаскивание рамкой

kostas

Дата 5.10.2006, 08:50 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 100
Регистрация: 21.7.2006

Репутация: 3
Всего: 4

Всем привет!
Интересует следующий вопрос, как для окна только моего приложения сделать ресайзинг и перетаскивание рамкой, т.е. не отображать содержимое окна при перетаскивании и ресайзинге.

tigger

Дата 5.10.2006, 11:16 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Awaiting Authorisation
Сообщений: 456
Регистрация: 30.4.2005

Репутация: нет
Всего: 4

Используй это

показать только рамку
SystemParametersInfo(SPI_SETDRAGFULLWINDOWS, Ord(false), nil, 0);

показать форму
SystemParametersInfo(SPI_SETDRAGFULLWINDOWS, Ord(true), nil, 0);

--------------------

kostas

Дата 5.10.2006, 19:49 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 100
Регистрация: 21.7.2006

Репутация: 3
Всего: 4

Большое спасибо!

Yanis

Дата 6.10.2006, 09:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

kostas
Ты видимо задачу решил smile

Но для будующих посещений этого топика менее опытными посетителями нарисовал пример:

Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, CommCtrl, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
  private
    { Private declarations }
    procedure WMNCLBUTTONDOWN(var M: TWMNCLButtonDown); message WM_NCLBUTTONDOWN;
    procedure WM_MOVING(var M:TMessage); message WM_MOVING;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMNCLBUTTONDOWN(var M: TWMNCLButtonDown);
begin
  if M.HitTest = HTCAPTION then
    begin
      SystemParametersInfo(SPI_SETDRAGFULLWINDOWS, Integer(False), nil, 0);
      M.Result := 0;
    end;

  Inherited;
end;

procedure TForm1.WM_MOVING(var M: TMessage);
begin
  SystemParametersInfo(SPI_SETDRAGFULLWINDOWS, Ord(true), nil, 0);
  M.Result := Integer(True);
end;

end.

--------------------

*щёлк*

dumb

Дата 6.10.2006, 10:28 (ссылка)

(нет голосов)

Загрузка ...

sceloglauxalbifacies

Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 13
Всего: 158

Yanis, лучше WM_ACTIVATE ловить. можно ведь и без мыши двигать/ресайзить, хотя и соглашусь: таким методом почти никто не пользуется.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »