DBR Delphi-Ecke

// Wenn vom eignen Programm eine Nachricht angezeigt werden soll,
// wird diese manchmal von anderen Programmen überdeckt. Im Folgenden
// sieht man, wie das zu umgehen ist.

// Getestet mit D4 unter XP

function zeigebox(const Msg: string; DlgType: TMsgDlgType; 
  Buttons: TMsgDlgButtons): TModalResult; 
var dlg: TForm; 
begin 
  dlg := CreateMessageDialog(Msg, DlgType, Buttons); 
  dlg.Formstyle := fsStayOnTop; 
  result := dlg.showmodal; 
  dlg.free; 
end; 
 
 
// Beispielaufruf 
 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  if zeigebox('Alles Mist, stimmts??', mtConfirmation, [mbYes, mbNo]) = mrYes 
    then showmessage('Pessimist!') 
  else showmessage('Angeber!'); 
end;