Kann man die plazierten Komponenten in einer Liste darstellen?

[nahpets]

Suchst Du sowas?

Delphi-Quellcode:

unit KomponentenListeUnit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DBCtrls, ComCtrls, Grids, DBGrids, DB, ADODB,
  ActnList, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    ActionList: TActionList;
    acListe: TAction;
    acEnde: TAction;
    con: TADOConnection;
    qry: TADOQuery;
    dbg: TDBGrid;
    stb: TStatusBar;
    dbn: TDBNavigator;
    meListe: TMemo;
    procedure acListeExecute(Sender: TObject);
    procedure acEndeExecute(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.acListeExecute(Sender: TObject);
var
          i : Integer;
begin
  meListe.Lines.Clear;
  for i := 0 to Self.ComponentCount - 1 do Begin
    meListe.Lines.Add(Format('%s -> %s',[Self.Components[i].Name,Self.Components[i].ClassName]));
  end;
end;

procedure TForm1.acEndeExecute(Sender: TObject);
begin
  Close;
end;

end.

Edit1 -> TEdit

Button1 -> TButton

Button2 -> TButton

dbg -> TDBGrid

stb -> TStatusBar

dbn -> TDBNavigator

meListe -> TMemo

ActionList -> TActionList

acListe -> TAction

acEnde -> TAction

con -> TADOConnection

qry -> TADOQuery