Hallo,
(BDS2006 Architect)
Ich will eine Komponente
TEB_Panel=class(TPanel) entwickeln,
die 3
TEdit und 1
TImage enthält.
Diese
(zusammengesetzte) Komponente soll die Eigenschaft besitzen, daß
entweder:
die Position der
TEdit in jeder Instanz von
TEB_Panel zur Laufzeit
(unabh.voneinander) änderbar ist
oder:
die Position der
TEdit in den verschiedenen Instanzen von
TEB_Panel verschieden ist
(diese Positionen werden zur Entwurfszeit festgelegt)
Ich will nämlich an den Entwurf der Klasse TEB_Panel Algoritmen binden, die für alle ihrer Instanzen gleich sind.
Folgendes will ich nämlich vermeiden:
Delphi-Quellcode:
TF_Mess = class(TForm)
P_KalibPhantom: TPanel;
B_Kalib_MessStart: TButton;
B_Kalib_MesStop: TButton;
I_Kalib: TImage;
EB_Kalib01: TEdit;
EB_Kalib02: TEdit;
EB_Kalib03: TEdit;
P_HalsPhantom_re: TPanel;
B_Hals_re_MessStart: TButton;
B_Hals_re_MessStop: TButton;
I_Hals_re: TImage;
EB_Hals_re01: TEdit;
EB_Hals_re02: TEdit;
EB_Hals_re03: TEdit;
P_HalsPhantom_li: TPanel;
B_Hals_li_MessStart: TButton;
B_Hals_li_MessStop: TButton;
I_Hals_li: TImage;
EB_Hals_li01: TEdit;
EB_Hals_li02: TEdit;
EB_Hals_li03: TEdit;
P_StammPhantom: TPanel;
B_Stamm_MessStart: TButton;
B_Stamm_MessStop: TButton;
I_Stamm: TImage;
EB_Stamm01: TEdit;
EB_Stamm02: TEdit;
EB_Stamm03: TEdit;
...
Eher sollte es so aussehen:
Delphi-Quellcode:
TP_EB = Class(TPanel);
B_MessStart: TButton;
B_MesStop: TButton;
I_Bild: TImage;
EB_01: TEdit;
EB_02: TEdit;
EB_03: TEdit;
...
var
Kalib, Hals_re, Hals_li, Stamm : TP_EB;
...
Mein Ziel ist es, diese Liste von
Kalib, Hals_li, Hals_re, Stamm... beliebig erweiterbar zu machen.
Wie geht das richtig ?
Ich glaube, meine Formulierung ist verständlich.
Vielen Dank
und ein gesundes neues Jahr
E. B.