|
| Change the looks of a MessageDlg... |  
|
|---|
Product:
Delphi all versions | Category:
N/A | Skill Level:
 | Scoring:  | Last Update:
06/05/2002 | Search Keys:
delphi delphi3000 article borland vcl code-snippet Delphi Delphi3000 MessageDlg | Times Scored:
5 | Visits:
2617 | Uploader: Smokey Mc. Pot
Company: | Reference: N/A | | | Question/Problem/Abstract:
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 gedrückt')
else
ShowMessage('Cancel pressed. Abbrechen wurde gedrückt');
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"
|
|
Sign Up
