Изменение MessageDlg

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Оформил: DeeCo

Автор: http://www.swissdelphicenter.ch

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.

// farbt die Form blau.

f.Color := clBlue;

// Set textcolor to lime

// Farbt 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 gedruckt’)

else

ShowMessage(‘Cancel pressed. Abbrechen wurde gedruckt’);

end;

{/codecitation}

Добавить комментарий