Delphi控件源码

开发平台：

Delphi

ProcListDlg.pas：源码内容

							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(const Data: string);
    procedure EnableButs;
  end;
var
  ProcListForm: TProcListForm;
implementation
uses ClientFrm, RemConMessages;
{$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
      SendMsg(MSG_CLOSE_WIN, ProcList.Items[ProcList.ItemIndex], ClientSocket1.Socket);
   end;
end;
procedure TProcListForm.KillButClick(Sender: TObject);
begin
   with (Owner as TClientForm) do begin
      SendMsg(MSG_KILL_WIN, ProcList.Items[ProcList.ItemIndex], ClientSocket1.Socket);
   end;
end;
procedure TProcListForm.SetList(const Data: string);
var
   OldProc : string;
begin
   OldProc := '';
   if 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.

						