lqtickethintfrm.pas

来自「这个是个简单的关于出票申请的处理」· PAS 代码 · 共 44 行

unit LQTicketHintFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TFrmLQTicketHint = class(TForm)
    pnlCLient: TPanel;
    Panel2: TPanel;
    Button1: TButton;
    MMHint: TMemo;
  private
    { Private declarations }
  public
    { Public declarations }
    class procedure ShowLQTicketHintForm(ALQTicketList: TStrings);
  end;

var
  FrmLQTicketHint: TFrmLQTicketHint;

implementation

{$R *.dfm}

{ TFrmLQTicketHint }

class procedure TFrmLQTicketHint.ShowLQTicketHintForm(
  ALQTicketList: TStrings);
begin
  with TFrmLQTicketHint.Create(nil) do
  try
    MMHint.Text := ALQTicketList.Text;
    ShowModal;
  finally
    Free;
  end;
end;

end.