Title: Change the looks of a MessageDlg
Question: How can I change the looks of a MessageDlg ???
Answer:
procedure TForm1.Button1Click(Sender: TObject);
var
f: TForm;
begin
// Create the MessageDialog
f := Dialogs.CreateMessageDialog('HELLOWORLD', dialogs.mtInformation, dialogs.mbOKCancel);
// Set the backcolor to blue.
f.Color := clBlue;
// Set textcolor to lime
f.Font.Color := clLime;
// Show the dialog and wait for the modalresult to see which button is clickt
if f.ShowModal = mrOk then
ShowMessage('OK Pressed, OK wurde gedrckt')
else
ShowMessage('Cancel pressed. Abbrechen wurde gedrckt');
end;
"Wise Men Don't Need Advice, Fools Don't Take It"
"I Don't Want To Achieve Immortality Through My Work,
I Want To Achieve It By Not Dying"