proclistdlg.pas

Asta For d2006 自己修改版 经典中间件 速度超快

unit ProcListDlg;

interface

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

type
  TProcListForm = class(TForm)
    Panel1: TPanel;
    ProcList: TListBox;
    CloseWinBut: TButton;
    KillBut: TButton;
    CancelBut: TButton;
    procedure CancelButClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ProcListClick(Sender: TObject);
    procedure CloseWinButClick(Sender: TObject);
    procedure KillButClick(Sender: TObject);
  private
    { Private declarations }
  public
    procedure SetList(Data: string);
    procedure EnableButs;
  end;

var
  ProcListForm: TProcListForm;

implementation

uses ClientFrm;

{$R *.DFM}

procedure TProcListForm.CancelButClick(Sender: TObject);
begin
  Close;
end;

procedure TProcListForm.EnableButs;
var
  b: boolean;
begin
  b := ProcList.ItemIndex <> -1;
  CloseWinBut.Enabled := b;
  KillBut.Enabled := b;
end;

procedure TProcListForm.FormShow(Sender: TObject);
begin
  EnableButs;
end;

procedure TProcListForm.ProcListClick(Sender: TObject);
begin
  EnableButs;
end;

procedure TProcListForm.CloseWinButClick(Sender: TObject);
begin
  with (Owner as TClientForm) do 
  begin
    cl.CloseProc(ProcList.Items[ProcList.ItemIndex]);
  end;
end;

procedure TProcListForm.KillButClick(Sender: TObject);
begin
  with (Owner as TClientForm) do 
  begin
    cl.KillProc(ProcList.Items[ProcList.ItemIndex]);
  end;
end;

procedure TProcListForm.SetList(Data: string);
var
  OldProc: string;
begin
  OldProc := '';
  if (ProcList.ItemIndex >= 0) and (ProcList.ItemIndex < ProcList.Items.Count) then
    OldProc := ProcList.Items[ProcList.ItemIndex];

  ProcList.Items.Text := Data;

  if OldProc <> '' then
    ProcList.ItemIndex := ProcList.Items.IndexOf(OldProc);
  EnableButs;
end;


end.