// Getestet mit D4 unter XP

// Wenn man einen Ja/Nein-Messagedialog erstellt, dann ist
// standarsmäßig der Ja-Button aktiviert. Möchten Sie lieber
// den Nein-Button aktiviert haben, dann geht das folgendermaßen:
 

function NO_DLG(const s: string): boolean; 
begin 
  with CreateMessageDialog(s, MTCONFIRMATION, [mbYes, mbNo]) 
    do begin 
    ActiveControl := TWinControl(FindComponent('NO')); 
    Result := ShowModal = mrYes; 
    free; 
  end; 
end; 
 

// Beispielaufruf

procedure TForm1.Button6Click(Sender: TObject); 
begin 
  if NO_DLG('Möchten Sie jetzt Feierabend haben?') 
    then showmessage('Na gut, Feierabend.'#13'Aber in dieser Firma für immer!!') 
  else showmessage('Sehr gute Arbeitseinstellung!'#13'Weiter so!') 
end;