Формы Delphi 7, якоря не работают в Vista

Возможно, это связано с проблемой «переполнения стека ядра Windows», которая возникает, если у вашего элемента управления много родителей. И если вы запустите его на 64-битной системе, переполнение стека ядра произойдет намного быстрее. (подробнее об этом здесь: http://news.jrsoftware.org/news/toolbar2000/msg07779.html)

В CodeCentral Embarcadero есть обходной путь для этой ошибки (которая также почти 1: 1 скопирована в Delphi 2009 VCL): http://cc.embarcadero.com/Item/25646

Это может быть из-за прозрачной рамки, которую показывает Vista. (Чтобы разные окна выглядели одинаково прозрачно.

Попробуйте использовать "Align" (alClient) вместо якорей. Поскольку вы используете все якоря, это имеет больше смысла.

До того, как якоря были введены в Delphi 4, мы динамически изменяли размеры компонентов для достижения того же эффекта. Вы можете легко перемещать / настраивать компоненты в событии onresize формы.

Установка свойства doublebuffered формы на true может уменьшить мерцание за счет буферизации метода paint. Напомню, что раньше нам тоже приходилось это реализовывать!

В качестве альтернативы предложенному мною динамическому изменению размера, основываясь на предложении Хеманта, я склеил рабочий код (см. Ниже). Просто создайте приложение форм VCL, установите tpanel, который не касается края формы (по умолчанию Align = alNone), и замените Unit1 приведенным ниже кодом. Когда вы запустите его, вы увидите 4 желтых панели, окружающие ту, которая была добавлена ​​изначально, а размер центральной панели изменится вместе с формой (как если бы все привязки были true).

unit Unit1;

interface

uses
  Windows, Classes, Controls, Forms, ExtCtrls, Graphics;

type
  TPanelPos = (ppLeft, ppRight, ppTop, ppBottom);
  TForm1 = class(TForm)
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    Panels : array[TPanelPos] of tpanel;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  PanelPos : TPanelPos;
begin
  for PanelPos := ppLeft to ppBottom do
  begin
    Panels[PanelPos] := tpanel.Create(Form1);
    Panels[PanelPos].Parent := Form1;
    Panels[PanelPos].Color := clYellow;
    case PanelPos of
     ppLeft :
       begin
         Panels[PanelPos].Align := alLeft;
         Panels[PanelPos].Width := Panel1.Left - 1;
       end;
     ppRight :
       begin
         Panels[PanelPos].Align := alRight;
         Panels[PanelPos].Width := Form1.Width - Panel1.Left - Panel1.Width;
       end;
     ppTop :
       begin
         Panels[PanelPos].Align := alTop;
         Panels[PanelPos].Height := Panel1.Top - 1;
       end;
     ppBottom :
       begin
         Panels[PanelPos].Align := alBottom;
         Panels[PanelPos].Height := Form1.Height - Panel1.Top - Panel1.Height;
       end;
    end;
    Panel1.Align := alClient;
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
  PanelPos : TPanelPos;
begin
  for PanelPos := ppLeft to ppBottom do
    Panels[PanelPos].Free;
end;

end.

Попробуйте запустить программу в режиме совместимости с XP в Vista. Программы, скомпилированные с помощью Delphi 7, могут не полностью поддерживать собственный режим Vista (на самом деле, неудивительно).

Похоже, что это довольно старый вопрос, в любом случае вот единственное решение этой проблемы во Вселенной: используйте старый метод определения размера программирования Windows с использованием API-ловушек WM_SIZE и WM_SIZING, это безошибочно и будет работать в каждой Windows, которую вы знаете .

Конечно, это означает, что вы должны использовать в основном GetClientRect () для определения значений высоты и высоты, а затем изменять размеры элементов управления на основе таких значений, конечно, это может звучать как попытка зажечь космический корабль, но это лучше всего.

В противном случае вы могли бы сделать что-то более практичное и быстрое с помощью процедуры изменения размера, например:

Control1.Left := Control2.Left + (buttonControl.Width div 2) - (buttonControl3.Width div 2);
//for example widths
Control4.Width    := (Control.Width * 4) + (Control.Left * 8) + 54 ;

Я делаю такое кодирование и выполняю такие функции практически во всех Windows, независимо от того, какой это будет версия.

Вам нужны только некоторые значения разрешения экрана для справки, делая что-то вроде этого:

iCXSCREEN := GetSystemMetrics(SM_CXSCREEN);
iCYSCREEN := GetSystemMetrics(SM_CYSCREEN);

    if ((iCXSCREEN = 1280) and (iCYSCREEN = 720)) or  ((iCXSCREEN = 1280) and (iCYSCREEN = 700)) or ((iCXSCREEN = 1280) and (iCYSCREEN = 600)) then begin

// blah blah

end;

Надежда помогает кому-то другому!

Ваше здоровье!