collocateform.pas

delphi 和mapx联合开发的例程 实现mapx的相应功能

unit CollocateForm;

interface

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

type
  TCollocateFrm = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    ListBox1: TListBox;
    GroupBox2: TGroupBox;
    ListBox2: TListBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Edit1: TEdit;
    StatusBar1: TStatusBar;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


implementation

{$R *.dfm}

procedure TCollocateFrm.BitBtn1Click(Sender: TObject);
var
  i: integer;
begin
  for i:= 1 to listbox1.Count do
    if listbox1.Selected[i-1] then
      listbox2.Items.Add(listbox1.items[i-1]);
  for i:=1 to listbox1.Items.Count do  listbox1.DeleteSelected;
  StatusBar1.Panels[1].Text:= '已经选择了'+inttostr(listbox2.Items.Count)+'个图层';
end;

procedure TCollocateFrm.BitBtn2Click(Sender: TObject);
var
  i: integer;
begin
  for i:= 1 to listbox2.Count do
    if listbox2.Selected[i-1] then
      listbox1.Items.Add(listbox2.items[i-1]);
  for i:=1 to listbox2.Items.Count do  listbox2.DeleteSelected;
  StatusBar1.Panels[1].Text:= '已经选择了'+inttostr(listbox2.Items.Count)+'个图层';
end;

procedure TCollocateFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:= caHide;
end;

end.