details.pas

ODAC 5.7.0.28

unit Details;

interface

uses
{$IFDEF LINUX}
  SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs, QStdCtrls,
  QDBCtrls, QButtons;
{$ELSE}
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons;
{$ENDIF}

type
  TFmDetails = class(TForm)
    BitBtn1: TBitBtn;
    Memo1: TMemo;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Execute(Caption, Text: string);
  end;

var
  FmDetails: TFmDetails;

implementation

{$R *.dfm}

procedure TFmDetails.Execute(Caption, Text: string);
begin
  Self.Caption := Caption;
  Memo1.Lines.Text := Text;
  ShowModal;
end;

end.