...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;

printed from
www.swissdelphicenter.ch
developers knowledge base