Как создать такую форму?

[artemavd]

Добрый вечер! Я создаю динамически форму. Мне нужно, чтобы она выглядела именно так (см.вложение). Чтобы ее можно было растягивать за нижний правый угол. С помощью каких компонентов это можно сделать? Сам код создания формы я написал, он работает хорошо. Проблема с внешним видом. В программе также используются Alpha Controls.

[[DisAssembleR]]

Чтобы именно так выглядела (если я правильно все понял) необходимо создать скин с такими же цветами, как и во вложении.
Думаю, ты знаешь, как применить скин к форме. Также на sSkinManager1 проверь включенное SkinningRules>srStdForms, поскольку без этого не будет "покраски" формы.

Насчет треугольника - можно положить TImage (картинку подгружать из ресурсов) и при onMouseActivate увеличивать размер формы

[artemavd]

С Image вообще не вариант. Там используется обычный RichEdit, он также создается у меня динамически. У меня не получается 2 вещи:
1. Создать такой же заголовок
2. С помощью чего растягивать форму? За StatusBar?

[Stilet]

С Image вообще не вариант.

Компонент Альфа скинс

Создать такой же заголовок

Форма. На форме панель altop, на которой по углам расположены Image с рисунками кнопок. Под панелью alClient твой Ричэдит.

За StatusBar?

Почему бы и нет? Раз больше не за что ухватить споднизу

[artemavd]

Stilet, я так и сделал и вот что получилось: (во вложении).
Теперь мне осталось:
1. Убрать линию на StatusBar-ом
2. Сделать чтобы форму можно было растягивать за треугольник в правом нижнем углу
3. Почему у меня по верхним углам, в Image-ах, у картинок белый фон, когда я точно знаю, что до загрузки картинок в sAlphaImageList у них фон - прозрачный
4. Сделать перемещение формы за заголовок
По 1,2 и 3 вопросу: как?
И по четвертому какие мысли?

[Stilet]

Убрать линию на StatusBar-ом

Думаю собака порылась в свойствах BevelInner, BevelOuter, BevelKind

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

Дык а он для этого и приспособлен. А что, не тянется?

Почему у меня по верхним углам, в Image-ах, у картинок белый фон

А вот тут не скажу... МОжет стоит другой компонент покруче чем Image достать...

Сделать перемещение формы за заголовок

Это панель? Тогда поиском по:

const
  Sc_dragmove = $F012;
begin
  ReleaseCapture;
  Perform(WM_SYSCOMMAND, Sc_dragmove, 0);
end;

[artemavd]

Думаю собака порылась в свойствах BevelInner, BevelOuter, BevelKind

У него нет таких свойств.

А что, не тянется?

Да, не тянется. Форма создается как BorderStyle=bsNone (тогда рамки не видно)

Это панель?

Да, панель. Я знаю про этот код. Я описал его выше, надо процедурой создания динамически компонентов, так:

procedure TForm1.MoveNote(Sender: TObject);
const
 sc_dragmouve = $f012;
begin
 ReleaseCapture;
 Perform(WM_SYSCOMMAND,sc_dragmouve,0);
end;

А затем, когда создаю панель, то ей в событие OnMouseMove пытаюсь присвоить код выше, но получаю ошибку:

[DCC Error] Unit1.pas(2443): E2009 Incompatible types: 'Parameter lists differ'

Вот код создания панели:

     Panel:=TsPanel.Create(Form);
     Panel.SkinData.CustomColor:=True;
     Panel.SkinData.SkinSection:='';
     Panel.BevelOuter:=bvNone;
     Panel.Color:=$00B6F7F8;
     Panel.Align:=alTop;
     Panel.Height:=17;
     Panel.OnMouseMove:=MoveNote; //здесь ошибка
     Panel.Parent:=Form;

[Stilet]

'Parameter lists differ'

Не удивительно. Ты же проверь сколько параметров должно быть в OnMouseMove
Там кроме sender еще координаты и нажатия клавиш шифтов передаются.

[[DisAssembleR]]

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

4. Сделать перемещение формы за заголовок

Мысль следующая - положить на форму замечательный компонент из пакета АльфаСкинс - sDragBar, на вкладке AlphaAdditional.
А чтобы не "отсвечивал" на форме, задать ему в параметрах SkinData->SkinSection ту секцию, которая тебе кажется более подходящей.

Хотя можно также отредактировать процедуру:

procedure TForm1.MoveNote(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
const
 sc_dragmouve = $f012;
begin
 ReleaseCapture;
 Perform(WM_SYSCOMMAND,sc_dragmouve,0);
end;

Потестил - все работает

[artemavd]

Не, с перетаскиванием заголовка я разобрался (воспользовался советом [DisAssembleR]). Теперь осталось:
Сделать изменение размера формы за треугольник

С картинками тоже разобрался. Удалил Image, использовал обычный sSpeedButton и настроил его внешний вид при создании. Теперь остался только sStatusBar. Помогите с ним дорешать проблему?
----------------------------:
Вот, добился, чтобы форма выглядела так: