unit1.~pas

一系列DELPHI的控件如何使用的例子,例子有的比较简单,但是能详细的说明了控件的使用,对许多刚涉足DELPHI的朋友会很有帮助的

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    ListBox2: TListBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var i:integer;
begin
   for i:=1 to 10 do
    listbox1.Items.Add(inttostr(i));
    listbox1.ItemIndex:=0;
    SpeedButton1.Enabled:=true;
    SpeedButton2.Enabled:=true;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
    edit1.Text:=listbox1.Items.Strings[listbox1.itemindex];

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
   listbox2.Items.Add(listbox1.Items.Strings[listbox1.itemindex]);
   listbox1.Items.Delete(listbox1.itemindex);
   listbox1.ItemIndex:=0;
   SpeedButton3.Enabled:=true;
   SpeedButton4.Enabled:=true;

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
var i:integer;
begin
    for i:=0 to listbox1.Count-1 do
        listbox2.Items.Add(listbox1.Items.Strings[i]);
        listbox1.Items.Clear;
        listbox2.ItemIndex:=0;
        SpeedButton1.Enabled:=false;
        SpeedButton2.Enabled:=false;
        SpeedButton3.Enabled:=true;
        SpeedButton4.Enabled:=true;

end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
   listbox1.Items.Add(listbox2.Items.Strings[listbox2.itemindex]);
   listbox2.Items.Delete(listbox2.itemindex);
   listbox2.ItemIndex:=0;
   SpeedButton1.Enabled:=true;
   SpeedButton2.Enabled:=true;

end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
var i:integer;
begin
    for i:=0 to listbox2.Count-1 do
        listbox1.Items.Add(listbox2.Items.Strings[i]);
        listbox2.Items.Clear;
        listbox1.ItemIndex:=0;
        SpeedButton1.Enabled:=true;
        SpeedButton2.Enabled:=true;
        SpeedButton3.Enabled:=false;
        SpeedButton4.Enabled:=false;

end;
end.