uviewform.pas

一个模拟Delphi的快速开发环境RAD

unit uviewform;

interface

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

type
  TViewForm = class(TForm)
    FileName: TEdit;
    FileList: TListBox;
    btnOK: TButton;
    btnCancel: TButton;
    btnHelp: TButton;
    procedure FileListClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FileListDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ViewForm: TViewForm;

implementation

{$R *.DFM}

procedure TViewForm.FileListClick(Sender: TObject);
begin
    FileName.Text:=FileList.Items[FileList.ItemIndex];
end;

procedure TViewForm.FormShow(Sender: TObject);
var
   I:Integer;
begin
    for I:=FileList.Items.Count-1 downto 0 do
       if FileList.Items[I]='' then FileList.Items.Delete(I);
    // 汽/蜡粗 格废 吝俊辑 霉锅掳 亲格阑 急琶茄促.
    FileList.SetFocus;
    FileList.ItemIndex:=0;
    FileName.Text:=FileList.Items[0];
end;

procedure TViewForm.FileListDblClick(Sender: TObject);
begin
    ModalResult:= mrOK;
end;

end.