Category: Forms
Title: Format a MessageDlg
Date added: 15.03.2006
Hits: 2890


procedure TForm1.Button1Click(Sender: TObject);
var
  f: TForm;
begin
  f := Dialogs.CreateMessageDialog('HELLOWORLD', dialogs.mtInformation, dialogs.mbOKCancel);
  f.Color := clBlue;
  f.Font.Color := clLime;
  if f.ShowModal = mrOk then
    ShowMessage('OK Pressedt')
  else
    ShowMessage('Cancel pressed');
end;

1. How to hide the main form at startup? (2473 Hits)

2. How to show hints in the Statusbar? (2872 Hits)

3. How to make rounded windows? (1913 Hits)

4. How to change a Hint's Font? (2033 Hits)

5. How to prevent movement of a form outside the desktop? (1673 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.