[Gudzik11]

как это обработчик на растягивания ?

Можешь написать мне обработчик?

[Gudzik11]

Ещё такой вопрос а можно как то сделать цвет листа формы сделать такой как цвет бара меню пуск ?
Ну тоесть если тема в Windows 7 изменилась то и цвет листа в моей форме изменился на такой же.

[robt]

Сообщение от Gudzik11

как это обработчик на растягивания ?

яж написал название сообщения

Сообщение от Gudzik11

Ещё такой вопрос а можно как то сделать цвет листа формы сделать такой как цвет бара меню пуск ?
Ну тоесть если тема в Windows 7 изменилась то и цвет листа в моей форме изменился на такой же.

что есть лист формы и бар меню пуск?

[angvelem]

Чтобы не изменялся размер, можно обрабатывать сообщение WM_SIZE.
Для изменения цвета нужно узнать какая тема подгружена.

[robt]

Сообщение от angvelem

можно обрабатывать сообщение WM_SIZE.

не,нельзя .

[robt]

Сообщение от angvelem

Для изменения цвета нужно узнать какая тема подгружена.

ненужно , цвет меняется сам если все по госту сделано

[angvelem]

Сообщение от robt

не,нельзя .

Учите матчасть.

[robt]

Сообщение от angvelem

Учите матчасть.

тоже могу посоветовать и Вам

[angvelem]

Чтобы особо не заморачиваться, вот код подходящий для вашего условия:

  private
    procedure WMGetMinMaxInfo(var M: TWMGetMinMaxInfo); message WM_GetMinMaxInfo;
  public
    { public declarations }
  end;

...

procedure TForm1.WMGetMinMaxInfo(var M: TWMGetMinMaxInfo);
begin
  inherited;
  M.MinMaxInfo^.ptMinTrackSize.y := 600;
  M.MinMaxInfo^.ptMinTrackSize.x := 800;
  M.MinMaxInfo^.ptMaxTrackSize.y := 600;
  M.MinMaxInfo^.ptMaxTrackSize.x := 800;
end;

to Robt:
желаете подискутировать? В личку.

[robt]

Сообщение от angvelem

to Robt:
желаете подискутировать? В личку.

отчего же в личку то сразу ?
а что будем делать с курсором ? при подведении к рамке

[Gudzik11]

решил отказаться я от этой стеклянной обводи так как до обработки WM_SIZE я ещё не дорос .
В общем то хотел сделать такой бар себе на рабочий стол чтоб можно было туда ярлыки вешать что то на подобие Stardock_ObjectDock .
Поставил форму в bsNone кинул PageControl но нужно чтоб он как то подходил к теме Windows 7
Это можно как то сделать?

[angvelem]

Сообщение от robt

а что будем делать с курсором ? при подведении к рамке

То же, что и с размером, либо запретим, либо покажем то, что нужно.
А матчасть всё-таки лучше подучить.

[robt]

Сообщение от Gudzik11

Поставил форму в bsNone кинул PageControl но нужно чтоб он как то подходил к теме Windows 7
Это можно как то сделать?

если есть манифест в ресурсах то оно изкаробки будет подходить к теме

зы
прозрачность ниесть тема

[robt]

Сообщение от angvelem

То же, что и с размером, либо запретим, либо покажем то, что нужно.
А матчасть всё-таки лучше подучить.

подучи подучи

Код:

type
  TForm1 = class(TForm)
  private
  procedure WMNCHitTest(var M: TWMNCHitTest);message wm_NCHitTest;
  end;
....................
procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
inherited;
if M.Result in [HTLEFT,HTRIGHT,HTBOTTOMLEFT,HTBOTTOMRIGHT,HTTOPLEFT,HTTOPRIGHT,HTBOTTOM,HTTOP] then  M.Result := 0;
end;