自定義對話框

Question

試圖讓自定義對話框使用按鈕名稱weapon1，weapon2和cancel。但與此代碼它給誤差上結果爲未定義當我嘗試編譯它 該錯誤消息

[DCC錯誤] ssClientHost.pas（760）：E2003未說明的標識符「結果」

的代碼是：

 with CreateMessageDialog('Pick What Weapon', mtConfirmation,mbYesNoCancel) do 
     try 
      TButton(FindComponent('Yes')).Caption := Weapon1; 
      TButton(FindComponent('No')).Caption := Weapon2; 
      Position := poScreenCenter; 
      Result := ShowModal; 
     finally 
    Free; 
    end; 
    if buttonSelected = mrYes then ShowMessage('Weapon 1 pressed'); 
    if buttonSelected = mrAll then ShowMessage('Weapon 2 pressed'); 
    if buttonSelected = mrCancel then ShowMessage('Cancel pressed'); 

Answer 1

上面的代碼貼有很多錯誤的，除非有你沒有向我們展示的部分。首先，如果沒有字符串變量Weapon1和Weapon2，那麼你不能引用這些變量！其次，如果沒有Result變量（例如，如果代碼位於函數內），那麼這也是一個錯誤。另外，在上面的代碼中，buttonSelected是一個變量，您可能已經忘記了聲明。最後，首先談談Yes和No，然後你談談Yes和Yes to all。

下面的代碼工程（獨立）：

with CreateMessageDialog('Please pick a weapon:', mtConfirmation, mbYesNoCancel) do 
    try 
    TButton(FindComponent('Yes')).Caption := 'Weapon1'; 
    TButton(FindComponent('No')).Caption := 'Weapon2'; 
    case ShowModal of 
     mrYes: ShowMessage('Weapon 1 selected.'); 
     mrNo: ShowMessage('Weapon 2 selected.'); 
     mrCancel: ShowMessage('Cancel pressed.') 
    end; 
finally 
    Free; 
end; 

免責聲明：本答案的作者是不喜歡的武器。

Answer 2

結果僅在函數定義：

function TMyObject.DoSomething: Boolean; 
begin 
    Result := True; 
end; 

procedure TMyObject.DoSomethingWrong; 
begin 
    Result := True; // Error! 
end; 

所以，你喜歡的東西：

function TMyForm.PickYourWeapon(const Weapon1, Weapon2: string): TModalResult; 
begin 
    with CreateMessageDialog('Pick What Weapon', mtConfirmation,mbYesNoCancel) do 
    try 
     TButton(FindComponent('Yes')).Caption := Weapon1; 
     TButton(FindComponent('No')).Caption := Weapon2; 
     Position := poScreenCenter; 
     Result := ShowModal; 
    finally 
    Free; 
    end; 
    // Debug code? 
{$IFDEF DEBUG) 
    if Result = mrYes then 
    ShowMessage('Weapon 1 pressed'); 
    if Result = mrAll then 
    ShowMessage('Weapon 2 pressed'); 
    if Result = mrCancel then 
    ShowMessage('Cancel pressed'); 
{$ENDIF} 
end;