inspform.pas

Delphi高级开发指南是开发程序的好帮手

unit InspForm;

interface

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

type
  TInspectForm = class(TForm)
    ListBoxItems: TListBox;
    BtnInspect: TBitBtn;
    BtnClose: TBitBtn;
    procedure BtnInspectClick(Sender: TObject);
  public
    Pts: TDdhPoints;
    Designer: TDesigner;
  end;

var
  InspectForm: TInspectForm;

implementation

{$R *.DFM}

uses
  DsgnIntf;

procedure TInspectForm.BtnInspectClick(Sender: TObject);
begin
  if ListBoxItems.ItemIndex < 0 then
    ShowMessage ('No item selected')
  else
    (Designer as TFormDesigner).SelectComponent (
      Pts [ListBoxItems.ItemIndex]);
end;

end.