Moin!
Zitat von
Pseudemys Nelsoni:
hallo an alle und danke 8)
Zitat:
Hey, du hast das Wunder von Klassen entdeckt: einmal schreiben und x mal anlegen mit gleichem Verhalten, obwohl nur einmal Code geschrieben wurde. Die Klasse TChild legt aussehen und Verhalten fest - und das kannst du dir dann so oft anlegen bzw nutzen wie du willst.
eigentlich weiss ich schon wie klassen funktionieren, nur ich sehe in der TChild
unit keine definition der postion der komponenten wo steht die?
Der Kommentar sollte auch eher scherzhaft sein -
und ich muss dazu gestehen, das ich mir den Code nicht angeschaut habe. Das werde ich gleich nochmal nachholen...
/EDIT:
Ok, nachgeholt. In dem Quellcode sind doch wie auch in der
DFM die Komponenten ordentlich angelegt:
Code:
type
TChild = class(TForm)
RadioButton1: TRadioButton; // <-- ein RadioButton
Button1: TButton; // <-- ein Button
Edit1: TEdit; // <-- ein Edit
ComboBox1: TComboBox; // <-- eine ComboBox...
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
public
end;
MfG
Muetze1