TfpgMessageDialog

type TfpgMessageDialog = class(TfpgForm)

protected

  procedure SetWindowTitle(); override;

  procedure HandleClose; override;

  procedure HandlePaint; override;

  procedure HandleShow; override;

  procedure HandleKeyPress(); override;

  procedure PrepareLayout;

public

  lblName1: TfpgLabel;

  pnlIcon: TfpgBevel;

  constructor Create(); override;

  destructor Destroy; override;

  procedure AfterCreate; override;

public

  class procedure About();

  class procedure AboutFPGui();

  class function Critical();

  class function Information();

  class function Question();

  class function Warning();

public

  property InformativeText: String; [rw]

  property Text: String; [rw]

  property Buttons: TfpgMsgDlgButtons; [rw]

  property DefaultButton: TfpgMsgDlgBtn; [rw]

  property DialogType: TfpgMsgDlgType; [r]

end;

TfpgMessageDialog

TfpgForm

TObject