Rabu, 08 Oktober 2008

MEMBUAT MESSAGE DIALOG DENGAN WARNA SENDIRI

JIka anda membuat message dialog yang standar maka akan muncul warna form abu-abu dengan caption warna biru dan tulisannya atau fontnya berwarna hitam. Jika kita hendak merubah warnanya maka anda dapat memakai script berikut.

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;

Tidak ada komentar: