viewbandedemobands.pas

来自「胜天进销存源码,国产优秀的进销存」· PAS 代码 · 共 28 行

unit ViewBandeDemoBands;

interface

uses
  Windows, Messages, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, cxButtons, cxListBox, cxLookAndFeelPainters,
  cxControls, cxContainer;

type
  TViewBandeDemoBandsForm = class(TForm)
    lbBands: TcxListBox;
    btnOK: TcxButton;
    btnCancel: TcxButton;
    procedure btnCancelClick(Sender: TObject);
  end;

implementation

{$R *.dfm}

procedure TViewBandeDemoBandsForm.btnCancelClick(Sender: TObject);
begin
  Close;
end;

end.