...format a MessageDlg?

Author: Intern

Category: Forms

procedure TForm1.Button1Click(Sender: TObject);
var 
  
f: TForm;
begin
  
// Create the MessageDialog
  // Den MessageDialog erstellen
  
f := Dialogs.CreateMessageDialog('HELLOWORLD', dialogs.mtInformation, dialogs.mbOKCancel);
  // Set the backcolor to blue.
  // färbt die Form blau.
  
f.Color := clBlue;
  // Set textcolor to lime
  // Färbt die Schrift lime
  
f.Font.Color := clLime;
  // Zeigt die Form an und wartet auf den ModalResult.
  // Shows the dialog and wait for the modalresult
  
if f.ShowModal = mrOk then
    
ShowMessage('OK Pressed, OK wurde gedrückt')
  else
    
ShowMessage('Cancel pressed. Abbrechen wurde gedrückt');
end;

 

printed from
www.swissdelphicenter.ch
developers knowledge base