开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 电子书籍 > Delphi/CppBuilder > 查看源码
U_szcx.pas
资源名称：Delphi7经典问题解析源代码.rar　[点击查看]
上传用户：psxgmh
上传日期：2013-04-08
资源大小：15112k
文件大小：4k
源码类别：

Delphi/CppBuilder

开发平台：

Delphi

U_szcx.pas：源码内容
  1. unit U_szcx;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Forms, Dialogs, Controls, StdCtrls,
  7.   Buttons, ExtCtrls;
  9. type
  10.   TfrmSzcx = class(TForm)
  11.     Panel1: TPanel;
  12.     SrcList: TListBox;
  13.     IncludeBtn: TSpeedButton;
  14.     IncAllBtn: TSpeedButton;
  15.     ExcludeBtn: TSpeedButton;
  16.     ExAllBtn: TSpeedButton;
  17.     DstList: TListBox;
  18.     Panel2: TPanel;
  19.     SpeedButton1: TSpeedButton;
  20.     SpeedButton2: TSpeedButton;
  21.     procedure IncludeBtnClick(Sender: TObject);
  22.     procedure ExcludeBtnClick(Sender: TObject);
  23.     procedure IncAllBtnClick(Sender: TObject);
  24.     procedure ExcAllBtnClick(Sender: TObject);
  25.     procedure SpeedButton1Click(Sender: TObject);
  26.     procedure FormActivate(Sender: TObject);
  27.     procedure SpeedButton2Click(Sender: TObject);
  28.     procedure SrcListDblClick(Sender: TObject);
  29.     procedure DstListDblClick(Sender: TObject);
  30.   private
  31.     { Private declarations }
  32.   public
  33.     { Public declarations }
  34.     procedure MoveSelected(List: TCustomListBox; Items: TStrings);
  35.     procedure SetItem(List: TListBox; Index: Integer);
  36.     function GetFirstSelection(List: TCustomListBox): Integer;
  37.     procedure SetButtons;
  38.   end;
  40. var
  41.   frmSzcx: TfrmSzcx;
  42.   Ordered: Boolean = False;
  43. implementation
  45. {$R *.DFM}
  47. procedure TfrmSzcx.IncludeBtnClick(Sender: TObject);
  48. var
  49.   Index: Integer;
  50. begin
  51.   Index := GetFirstSelection(SrcList);
  52.   MoveSelected(SrcList, DstList.Items);
  53.   SetItem(SrcList, Index);
  54. end;
  56. procedure TfrmSzcx.ExcludeBtnClick(Sender: TObject);
  57. var
  58.   Index: Integer;
  59. begin
  60.   Index := GetFirstSelection(DstList);
  61.   MoveSelected(DstList, SrcList.Items);
  62.   SetItem(DstList, Index);
  63. end;
  65. procedure TfrmSzcx.IncAllBtnClick(Sender: TObject);
  66. var
  67.   I: Integer;
  68. begin
  69.   for I := 0 to SrcList.Items.Count - 1 do
  70.     DstList.Items.AddObject(SrcList.Items[I],
  71.       SrcList.Items.Objects[I]);
  72.   SrcList.Items.Clear;
  73.   SetItem(SrcList, 0);
  74. end;
  76. procedure TfrmSzcx.ExcAllBtnClick(Sender: TObject);
  77. var
  78.   I: Integer;
  79. begin
  80.   for I := 0 to DstList.Items.Count - 1 do
  81.     SrcList.Items.AddObject(DstList.Items[I], DstList.Items.Objects[I]);
  82.   DstList.Items.Clear;
  83.   SetItem(DstList, 0);
  84. end;
  86. procedure TfrmSzcx.MoveSelected(List: TCustomListBox; Items: TStrings);
  87. var
  88.   I: Integer;
  89. begin
  90.   for I := List.Items.Count - 1 downto 0 do
  91.     if List.Selected[I] then
  92.     begin
  93.       Items.AddObject(List.Items[I], List.Items.Objects[I]);
  94.       List.Items.Delete(I);
  95.     end;
  96. end;
  98. procedure TfrmSzcx.SetButtons;
  99. var
  100.   SrcEmpty, DstEmpty: Boolean;
  101. begin
  102.   SrcEmpty := SrcList.Items.Count = 0;
  103.   DstEmpty := DstList.Items.Count = 0;
  104.   IncludeBtn.Enabled := not SrcEmpty;
  105.   IncAllBtn.Enabled := not SrcEmpty;
  106.   ExcludeBtn.Enabled := not DstEmpty;
  107.   ExAllBtn.Enabled := not DstEmpty;
  108. end;
  110. function TfrmSzcx.GetFirstSelection(List: TCustomListBox): Integer;
  111. begin
  112.   for Result := 0 to List.Items.Count - 1 do
  113.     if List.Selected[Result] then Exit;
  114.   Result := LB_ERR;
  115. end;
  117. procedure TfrmSzcx.SetItem(List: TListBox; Index: Integer);
  118. var
  119.   MaxIndex: Integer;
  120. begin
  121.   with List do
  122.   begin
  123.     SetFocus;
  124.     MaxIndex := List.Items.Count - 1;
  125.     if Index = LB_ERR then Index := 0
  126.     else if Index > MaxIndex then Index := MaxIndex;
  127.     Selected[Index] := True;
  128.   end;
  129.   SetButtons;
  130. end;
  132. procedure TfrmSzcx.SpeedButton1Click(Sender: TObject);
  133. begin
  134.   Ordered := True;
  135.   close;
  136. end;
  138. procedure TfrmSzcx.FormActivate(Sender: TObject);
  139. begin
  140.   Ordered := False;
  141. end;
  143. procedure TfrmSzcx.SpeedButton2Click(Sender: TObject);
  144. begin
  145.   close;
  146. end;
  148. procedure TfrmSzcx.SrcListDblClick(Sender: TObject);
  149. begin
  150.   IncludeBtn.click;
  151. end;
  153. procedure TfrmSzcx.DstListDblClick(Sender: TObject);
  154. begin
  155.   ExcludeBtn.click;
  156. end;
  158. end.