Ширина нижней рамки панели TPanel

[Gregor]

Добрый день! У меня панель в панели. Внутренняя панель может выравниваться на всю клиентскую обл. внешней или нет. Как сделать так чтоб нижняя часть внешней рамки была определенного размера(более толстой) а левая , правая и верхняя стандартного?

[min@y™]

Скриншот где?

[Gregor]

Как то так https://yadi.sk/i/jdQj3DxtqHvrA

[min@y™]

285011.png

object Form1: TForm1
  Left = 630
  Top = 290
  Caption = 'Form1'
  ClientHeight = 286
  ClientWidth = 295
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 16
    Top = 16
    Width = 265
    Height = 169
    BevelWidth = 3
    TabOrder = 0
    object Memo1: TMemo
      AlignWithMargins = True
      Left = 3
      Top = 3
      Width = 259
      Height = 157
      Margins.Left = 0
      Margins.Top = 0
      Margins.Right = 0
      Margins.Bottom = 6
      Align = alClient
      Lines.Strings = (
        'Memo1')
      TabOrder = 0
      ExplicitLeft = 56
      ExplicitTop = 56
      ExplicitWidth = 185
      ExplicitHeight = 89
    end
  end
  object Panel2: TPanel
    Left = 16
    Top = 185
    Width = 265
    Height = 84
    BevelWidth = 3
    Caption = #1058#1072#1082' '#1096#1090#1086#1083#1100'?'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
  end
end

[Gregor]

Забыл совсем сказать что у меня D7 ( и там нету свойства AlignWithMargins

[Аватар]

Типа такого? Нижняя панель без без границы и alBottom. Верхняя alClient. Границы настраивай в BevelInner и BevelOuter

[min@y™]

Забыл совсем сказать что у меня D7

Это твоя проблема или моя?
У меня, например, delphi 7 нету давным давно.

[Gregor]

Наверно не совсем точно описал проблему. Есть компонент который внутри себя содержит другие панели . Типа контейнер для панелей. Размеры этих внутренних панелей можно менять мышкой. если навести на нижнюю рамку. Это достигается при помощи обработки этим компонентом сообщения WM_NCHITTEST. Т.е типа сплиттера, но самого компонента сплиттера нет. Т.е что бы появился соответствующий курсор надо чтоб мыша попала на нижнюю границу минус 3 pix. Но если я положу на компонент другой и выровняю его по клиенты , то эти 3pix закроются и тогда трудно будет попасть туда мышкой. Поэтому я хочу оставить этот участок. https://yadi.sk/d/1fRNlDOVqJ3pM

[Gregor]

Сообщение от min@y™

Это твоя проблема или моя?
У меня, например, delphi 7 нету давным давно.

Моего начальства, но в данный момент и моя

[min@y™]

Хорошо, что не моя.
Только начальство-то тут причём?
А хотя пох.