Jak wyświetlić okno dialogowe z dwoma przyciskami (Kontynuuj/Zamknij) w Delphi

Question

Chcę utworzyć okno dialogowe z ostrzeżeniem, które zapyta użytkowników, czy informacje wpisane podczas rejestracji są poprawne, i prosi go o dodanie, że chce kontynuować lub zamknąć to dialog i popraw jego informacje.

Answer 1

var 
    td: TTaskDialog; 
    tb: TTaskDialogBaseButtonItem; 
begin 
    td := TTaskDialog.Create(nil); 
    try 
    td.Caption := 'Warning'; 
    td.Text := 'Continue or Close?'; 
    td.MainIcon := tdiWarning; 
    td.CommonButtons := []; 

    tb := td.Buttons.Add; 
    tb.Caption := 'Continue'; 
    tb.ModalResult := 100; 

    tb := td.Buttons.Add; 
    tb.Caption := 'Close'; 
    tb.ModalResult := 101; 

    td.Execute; 

    if td.ModalResult = 100 then 
     ShowMessage('Continue') 
    else if td.ModalResult = 101 then 
     ShowMessage('Close'); 

    finally 
    td.Free; 
    end; 
end; 

Uwaga:This will only work on Windows Vista or later.

Answer 2

jeśli Delphi następnie

if mrYes=MessageDlg('Continue?',mtwarning,[mbYes, mbNo],0) then 
    begin 
     //do somthing 
    end 
else 
exit; //go out 

Answer 3

podstawie this:

procedure HookResourceString(rs: PResStringRec; newStr: PChar); 
var 
    oldprotect: DWORD; 
begin 
    VirtualProtect(rs, SizeOf(rs^), PAGE_EXECUTE_READWRITE, @oldProtect); 
    rs^.Identifier := Integer(newStr); 
    VirtualProtect(rs, SizeOf(rs^), oldProtect, @oldProtect); 
end; 

const 
    SContinue = 'Continue'; 
    SClose = 'Close'; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    HookResourceString(@SMsgDlgOK, SContinue); 
    HookResourceString(@SMsgDlgCancel, SClose); 
    if MessageDlg('My Message', mtConfirmation, [mbOK, mbCancel], 0) = mrOK then 
    begin 
    // OK... 
    end; 
end; 

Answer 4

var 
    AMsgDialog: TForm; 
    abutton: TButton; 
    bbutton: TButton; 
begin 

    AMsgDialog := CreateMessageDialog('This is a test message.', mtWarning,[]); 
    abutton := TButton.Create(AMsgDialog); 
    bbutton := TButton.Create(AMsgDialog); 

    with AMsgDialog do 

    try 

     Caption := 'Dialog Title' ; 
     Height := 140; 
     AMsgDialog.Width := 260 ; 

     with abutton do 
     begin 
     Parent := AMsgDialog; 
     Caption := 'Continue'; 
     Top := 67; 
     Left := 60; 
     // OnClick :tnotyfievent ; 
     end; 

     with bbutton do 
     begin 
     Parent := AMsgDialog; 
     Caption := 'Close'; 
     Top := 67; 
     Left := 140; 
     //OnClick :tnotyfievent ; 
     end; 

     ShowModal ; 

    finally 
     abutton.Free; 
     bbutton.Free; 
     Free; 
    end;