unit_design.pas

实现短信的收发应用非常的方便,系统很小直接使用不需安装

unit Unit_design;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ToolWin, ComCtrls, ImgList, ExtCtrls;

type
  Tdesignform = class(TForm)
    ImageList1: TImageList;
    Panel1: TPanel;
    Label4: TLabel;
    Shape1: TShape;
    ListBox1: TListBox;
    Shape2: TShape;
    SpeedButton1: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton2: TSpeedButton;
    ListBox2: TListBox;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    BitBtn1: TToolButton;
    ToolButton3: TToolButton;
    BitBtn2: TToolButton;
    ToolButton4: TToolButton;
    BitBtn3: TToolButton;
    ToolButton5: TToolButton;
    ToolButton2: TToolButton;
    ToolButton6: TToolButton;
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure Shape1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Shape2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure ToolButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  designform: Tdesignform;
  I:integer;
implementation
 uses Unit_browse;
{$R *.dfm}

procedure Tdesignform.FormActivate(Sender: TObject);
begin
   ListBox2.Items.Clear;
   for i:=0 to Browseform.DBGrid1.FieldCount-1 do
  begin
    ListBox2.Items.Add(Browseform.DBGrid1.Columns[i].FieldName);
  end;
  for I:=0 to Browseform.Query1.FieldCount-1 do
  begin
    if ListBox2.Items.IndexOf(Browseform.Query1.Fields[i].FieldName)<0 then
    begin
      ListBox1.Items.Add(Browseform.Query1.Fields[i].FieldName);
    end;
  end;
end;

procedure Tdesignform.SpeedButton1Click(Sender: TObject);
begin
 for I:=0 to ListBox2.Items.Count-1 do
 if (ListBox2.Selected[i]) and (i<ListBox2.Items.Count-1) then
 begin
    ListBox2.Items.Move(i,i+1);
    break;
 end;
 if  i<ListBox2.Items.Count-1 then
  ListBox2.Selected[i+1]:=true;
end;

procedure Tdesignform.SpeedButton2Click(Sender: TObject);
begin
  for I:=0 to ListBox2.Items.Count-1 do
 if (ListBox2.Selected[i]) and (i>0) then
 begin
    ListBox2.Items.Move(i,i-1);
    break;
 end;
 if i>0 then
  ListBox2.Selected[i-1]:=true;
end;

procedure Tdesignform.BitBtn3Click(Sender: TObject);
begin
Browseform.DBGrid1.Columns.Clear;
for i:=0 to ListBox2.Items.Count-1 do
  begin
    Browseform.DBGrid1.Columns.Add.FieldName:=ListBox2.Items.Strings[i];
    Browseform.DBGrid1.Columns[i].Width:=90;
  end;
  close;
end;

procedure Tdesignform.SpeedButton4Click(Sender: TObject);
begin
 for I:=0 to ListBox1.Items.Count-1 do
 begin
   if ListBox1.Selected[i] then
   begin
     ListBox2.Items.Add(ListBox1.Items.Strings[i]);
     ListBox1.Items.Delete(i);
     break;
   end;
 end;
end;

procedure Tdesignform.SpeedButton3Click(Sender: TObject);
begin
 for I:=0 to ListBox2.Items.Count-1 do
 begin
   if ListBox2.Selected[i] then
   begin
     ListBox1.Items.Add(ListBox2.Items.Strings[i]);
     ListBox2.Items.Delete(i);
     break;
   end;
 end;
end;

procedure Tdesignform.Shape1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if button=mbleft then
  begin
  releasecapture;
  perform(wm_syscommand,$f012,0);
  end; 
end;

procedure Tdesignform.Shape2MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if button=mbleft then
  begin
  releasecapture;
  perform(wm_syscommand,$f012,0);
  end; 
end;

procedure Tdesignform.ToolButton2Click(Sender: TObject);
begin
close;
end;

procedure Tdesignform.FormCreate(Sender: TObject);
var
 a:integer;
begin
ToolBar1.Top:=listbox1.Top+listbox1.Height+20;
a:=listbox1.width;
ToolBar1.Left:=a div 2;
end;

end.