Mega Code Archive

 

Categories / Delphi / Forms

 

Format a MessageDlg

Title: format a MessageDlg? 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;