デルファイ - 第2のモニタのオープンフォーム

Question

私はこの解決策の助けが必要です。 いくつかの形式のアプリケーションがあります。このフォームの1つは、選択したモニターで開く必要があります。例： 解決策1.複数のモニターが使用されている場合は、フォーム作成を行い、最後のモニターを開く場合はフォームを作成します。私はこのコードを試してみたが、運と：

Application.CreateForm(TfrmDashboard, frmDashboard); 
    for I := 0 to Screen.MonitorCount -1 do 
    begin 
    // Checking Screen Position 
    ShowMessageFmt('%d, %d, %d, %d', 
       [Screen.Monitors[i].BoundsRect.Left, 
       Screen.Monitors[i].BoundsRect.Top, 
       Screen.Monitors[i].BoundsRect.Right, 
       Screen.Monitors[i].BoundsRect.Bottom]); 
    end; 

    if Screen.MonitorCount > 1 then 
    begin 
     frmDashboard.Top:= Screen.Monitors[i].BoundsRect.Top; 
     frmDashboard.Top:= Screen.Monitors[i].BoundsRect.Left; 
    end; 

ソリューション2.フォームを選択したモニタおよびOnDestroyイベントトップと左の位置にドラッグされていないINIファイルに書き込まれます。次回は同じモニターと同じ位置にフォームが開きます。私はこのコードを試してみてください、だけでなく、運がないと：

procedure TfrmDashboard.FormCreate(Sender: TObject); 
var 
    ini: TIniFile; 
begin 
    ini:= TIniFile.Create(extractfilepath(paramstr(0))+'Dashboard.ini'); 
    Left:= StrToInt(ini.ReadString('Left', 'Form_Left', '0')); 
    Top:= StrToInt(ini.ReadString('Top', 'Form_Top', '0')); 
    ini.Free; 
end; 

procedure TfrmDashboard.FormDestroy(Sender: TObject); 
var 
    ini: TIniFile; 
begin 
    ini:= TIniFile.Create(extractfilepath(paramstr(0))+'Dashboard.ini'); 
    ini.WriteString('Left', 'Form_Left', IntToStr(Left)); 
    ini.WriteString('Top', 'Form_Top', IntToStr(Top)); 
    ini.Free; 
end; 

Answer 1

frmDashboard.Top:= ... 
frmDashboard.Top:= ... 

これは、単純なコピーペースト・エラーのように見えます。両方の時間をTopに設定します。おそらくあなたは、意味：

frmDashboard.Top:= ... 
frmDashboard.Left:= ... 

---

このコードは同じ間違いを作る：それは誤った定義になっているとき

if Screen.MonitorCount > 1 then 
begin 
    frmDashboard.Top:= Screen.Monitors[i].BoundsRect.Top; 
    frmDashboard.Top:= Screen.Monitors[i].BoundsRect.Left; 
end; 

さらに、それはiを指します。コンパイラはこれについて警告します。私はコンパイラの警告とヒントを有効にし、それらに注意を払うことを願っています。

---

INIファイルに無効なデータが含まれている場合、あなたのOnCreateイベントハンドラは、例外が発生します。たとえば、ユーザーが位置の値を非数値に編集した場合、StrToIntは例外を発生させます。あなたのプログラムはそれに耐えられるものでなければなりません。

OnCreateとOnDestroyの両方のイベントハンドラは、INIファイルオブジェクトの有効期間を正しく管理しません。 INIファイルへのアクセスが失敗した場合、またはStrToIntへの呼び出しが失敗した場合（上記参照）、オブジェクトがリークします。これは、従うパターンです：

obj := TMyObject.Create; 
try 
    // do things with obj 
finally 
    obj.Free; 
end;