デルファイ7は、Vistaの

Question

でソフトウェアを動作していないアンカーは、私のXPマシンでのDelphi 7

上に構築され、フォームは、私が期待してサイズを変更します。しかし、2台のVistaマシンでは、[akLeft、akTop、akRight、akBottom]に設定されたアンカー付きのコンポーネントがありますが、フォームのサイズを変更すると、コンポーネントはフォームと共に伸びず、 。 XPマシンでは、コンポーネントがフォームで正しくストレッチされます。

Vistaマシンがアンカープロパティを無視しているようです。どのようなアイデアがこれを引き起こし、どのようにそれを修正するのですか？

重要な更新（フランソワ）：
私たちは、D2007アプリケーションとすべてのx64窓上と同じ問題を抱えていました。
Andreasの答えは確かに修正されました。 それはD7でもVista関連でもありません。

Answer 1

多分あなたのコントロールが多くの親を持っている場合に発生する "Windowsカーネルスタックオーバーフロー"問題に関連しているかもしれません。 64ビットシステムで実行すると、カーネルスタックのオーバーフローがずっと速くなります。 （ここではこれについての詳細：http://news.jrsoftware.org/news/toolbar2000/msg07779.html）

エンバカデロのCodeCentralには、（また、ほぼ1コピーされます：Delphi 2009では、VCLに1）：このバグの回避策であるに動的なサイズ変更Iの代替としてhttp://cc.embarcadero.com/Item/25646

Answer 2

VistaのXP互換モードでプログラムを実行してみてください。 Delphi 7でコンパイルされたプログラムは、Vistaのネイティブモードを完全にサポートしていない可能性があります。

Answer 3

Vistaで表示されている透明なフレームの可能性があります。 （あなたがより理にかなっているすべてのアンカーを使用しているので、別のウィンドウに同じ透明な外観を与えるために。

する。代わりに、アンカーの「合わせ」（alClient）を使用してみてください。

Answer 4

アンカーはデルファイ4で導入された前に、 、我々は同じ効果を達成するためにコンポーネントを動的にリサイズ。あなたは簡単に移動/フォームのonresizeイベント内のコンポーネントを調整することができます。

paint方法をバッファリングすることによって、ちらつきを減らすことができるtrueに、フォームのdoublebufferedプロパティを設定します。私たちは使用リコールそれを自分でも実装する必要があります！

Answer 5

提案したように、私はHemantの提案に基づいて、いくつかの作業コード（下記）を打ち明けました。 VCLフォームアプリケーションを作成し、のフォームの端には触れず（デフォルトでは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. 

Answer 6

が、これはとにかくここで、かなり古い質問ですが、宇宙でのこの問題の唯一の解決策だなりますWM_SIZEとWM_SIZINGをトラップするAPIを使用して、古いスタイルのWindowsプログラミングのサイジング方法を使用して、それがinfalible一つだと機能しますすべてのWindowsで知っているでしょう。

もちろん、GetClientRect（）を使用してwitdhsとheightを決定し、その値に基づいてコントロールのサイズを変更する必要があります。宇宙船を点火しようとするように聞こえるかもしれませんが、最高です。私はすべてのWindowsでのコーディングや機能のようなものを行うどんなにウィッヒバージョン、それはなりを

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

：

そうしないようなサイズ変更の手順で、より実用的かつ迅速に何かをすることができます。希望は他の誰かを助け

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; 

：

にのみ、このような何かをやって参照用の画面解像度にいくつかの値を必要とします！

乾杯！