fmselecttrack.pas

来自「Delphi的另一款钢琴软件」· PAS 代码 · 共 48 行

unit fmSelectTrack;

interface

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

type
  TSelectTrackForm = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    edTrackName: TEdit;
    lbTrackNames: TListBox;
    procedure lbTrackNamesClick(Sender: TObject);
    procedure lbTrackNamesDblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SelectTrackForm: TSelectTrackForm;

implementation

{$R *.DFM}

procedure TSelectTrackForm.lbTrackNamesClick(Sender: TObject);
begin
  with lbTrackNames do edTrackName.Text := Items [ItemIndex]
end;

procedure TSelectTrackForm.lbTrackNamesDblClick(Sender: TObject);
begin
  ModalResult := mrOk
end;

procedure TSelectTrackForm.FormShow(Sender: TObject);
begin
  with lbTrackNames do edTrackName.Text := Items [ItemIndex]
end;

end.