jisao.pas

来自「本程序运用access数据库」· PAS 代码 · 共 39 行

unit jisao;

interface

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

type
  TFm_jeisao = class(TForm)
    TreeView1: TTreeView;
    Memo1: TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    procedure TreeView1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fm_jeisao: TFm_jeisao;

implementation

{$R *.dfm}

procedure TFm_jeisao.TreeView1Click(Sender: TObject);
begin
case treeview1.Selected.Index of
  0: memo1.BringToFront;
  1: memo2.BringToFront;
  2: memo3.BringToFront;
end;
end;

end.