coleditf.pas

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

unit ColEditF;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, DsgnIntf, DdhEdCol;

type
  TPointsListForm = class(TForm)
    ListBox1: TListBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ListBox1DblClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    Desinger: TFormDesigner;
    Graph: TDdhEdGraph;
  end;

var
  PointsListForm: TPointsListForm;

implementation

{$R *.DFM}

procedure TPointsListForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
  PointsListForm := nil;
end;

procedure TPointsListForm.ListBox1DblClick(Sender: TObject);
begin
  Desinger.SelectComponent (
    Graph.Points [Listbox1.ItemIndex]);
end;

procedure TPointsListForm.FormActivate(Sender: TObject);
var
  I: Integer;
begin
  PointsListForm.ListBox1.Clear;
  for I := 0 to Graph.Points.Count - 1 do
    PointsListForm.ListBox1.Items.Add (
      Graph.Points.Items [I].GetDisplayName);
end;

end.