uwindowlist.pas

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

unit UWindowList;

interface

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

type
  TWindowList = class(TForm)
    ListBox1: TListBox;
    btnHelp: TButton;
    btnCancel: TButton;
    btnOK: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  WindowList: TWindowList;

implementation

{$R *.DFM}

procedure TWindowList.FormCreate(Sender: TObject);
var
   I:Integer;
begin
    for I:=0 to Screen.FormCount-1 do
       ListBox1.Items.Add(Screen.Forms[I].Name);
end;

// 扩档快 格废俊辑 急琶茄 扩档快甫 焊咯霖促.
procedure TWindowList.btnOKClick(Sender: TObject);
var
   I:Integer;
begin
    ModalResult:=mrOK;
    if ListBox1.ItemIndex=-1 then Exit;
    for I:=0 to Screen.FormCount-1 do
       if Screen.Forms[I].Name =ListBox1.Items[ListBox1.ItemIndex] then begin
          Screen.Forms[I].Show;
          Screen.Forms[I].SetFocus;
          Break;
       end;
end;

procedure TWindowList.btnCancelClick(Sender: TObject);
begin
   ModalResult:=mrCancel;
end;

end.