VPF::WM_NCCreate - Форум программистов

Igor_thief

Дата 31.8.2007, 23:39 (ссылка)

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

Загрузка ...

Шустрый

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

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

Имеется следующий код:

Код


type
  TForm4 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  protected
    procedure WMNCCreate(var Message: TWMNCCreate); message WM_NCCREATE;
    procedure WMNCCalcSize(var Message: TWMNCCalcSize); message WM_NCCALCSIZE;
  end;

var
  Form4: TForm4;
  TitleBarSize: LongInt;

implementation

{$R *.dfm}

{ TForm4 }

procedure TForm4.WMNCCalcSize(var Message: TWMNCCalcSize);
begin
end;

procedure TForm4.WMNCCreate(var Message: TWMNCCreate);
var
  dwStyle: longint;
begin
  TitleBarSize := (GetSystemMetrics(SM_CYCAPTION) div 2) + 1;
  dwStyle := GetWindowLong(Handle, GWL_STYLE);
//  dwStyle := dwStyle or WS_SMALLTITLEBAR;
  if (dwStyle and WS_DLGFRAME) = WS_DLGFRAME then
    dwStyle := dwStyle and not longint(WS_DLGFRAME);
  dwStyle := dwStyle and not (WS_BORDER);
  SetWindowLong(Handle, GWL_STYLE, dwStyle);

  inherited;  {Call default processing.}
end;

Все выше указанное делается для того, чтобы убрать у формы заголовок и при этом иметь возможность изменять размеры формы при помощи мыши. Но наткнулся на один нюанс. Если теперь навести курсор мыши на один из 4-х углов формы, то курсор, как и должен, меняется на курсор который символизирует что можно менять размер формы, но когда начинаешь плавно двигать курсор по одному из краев формы, то он, напротяжении определенного растояния не меняется на вертикальную/горизонтальную стрелочку для изменения размеров. Как это исправить?
[img=http://img63.imageshack.us/img63/9966/20070831234218bp8.th.png]

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

В каждом из нас спит гений, и с каждым днем все крепче ...delphigeek.blogspot.com | www.iskomorokh.com

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