unitwindows.pas

来自「不错的远程控制程序」· PAS 代码 · 共 53 行

unit UnitWindows;

interface

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

type
  TWindow = class(TForm)
    ListView1: TListView;
    PopupMenu1: TPopupMenu;
    Close1: TMenuItem;
    Show1: TMenuItem;
    procedure Show1Click(Sender: TObject);
    procedure Close1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Window: TWindow;

implementation

{$R *.dfm}

procedure TWindow.Show1Click(Sender: TObject);
begin
  if not Assigned(ListView1.Selected) then Exit;
  TForm(ListView1.Selected.Data).Show;
  TForm(ListView1.Selected.Data).WindowState := wsNormal;
end;

procedure TWindow.Close1Click(Sender: TObject);
begin
  if not Assigned(ListView1.Selected) then Exit;
  SendMessage(TForm(ListView1.Selected.Data).Handle, WM_CLOSE, 0, 0);
end;

end.