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