Ich beziehe mich hauptsächlich auf das hier :
Zitat von
mimi:
Ich möchte mir ein eigene "kleine"
GUI schreiben.
Die nur ein paar
standart komponenten hat wie z.b.
- Button
- Edit
- Formular
ersteinmal, später kann ich sie ja noch erweitern.
Du willst also ein Formular mit einem Buton und einem Edit. Und später kommt da noch eine Listbox hinzu und eine Combobox, oder das 2. Formular soll andere Farbe erhalten usw. Richtig ? Ihr versucht da anscheinend die bereits vorhandene Objektablage auf hochgeistige Weise nachzubauen. Habe die risigen Texte auch nicht gelesen. 8) Darüber habe ich schon so viel geschrieben, daß mir langsam die Lust ausgeht. Wer das für solche Zwecke nicht macht, der ist eben selber dran schuld. 8) Und trotz Weihnachten deshalb nochmals, allerdings nur Source mit Kurzkommentar :
Formular mit Button und Edit :
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TGrundForm =
class(TForm)
Button1: TButton;
Edit1: TEdit;
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
end.
Das Teil ist bereits umbenannt und wird mit Rechtsklick in die Objektablage verfrachtet. Ich brauche das nächste Formular, welches noch die Listbox und die Combobox erhalten soll, alles andere bleibt gleich.
Neu -> weitere, Formular suchen und unten vererben nicht vergessen ! Ich pappe die Listbox und die Combobox da drauf. Ergibt das :
Delphi-Quellcode:
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TGrundForm2 =
class(TGrundForm)
ComboBox1: TComboBox;
ListBox1: TListBox;
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
GrundForm2: TGrundForm2;
implementation
{$R *.dfm}
end.
Jetzt hat das Formular : Button, Edit (beide geerbt) und neu sind die Listbox und die Combobox. Das zweite Formular mache ich jetzt gelb und ganz klein Hier die
DFM :
Delphi-Quellcode:
inherited GrundForm2: TGrundForm2
Width = 174
Height = 226
Caption = 'GrundForm2'
Color = clYellow
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 13
inherited Button1: TButton
Left = 8
Top = 8
end
inherited Edit1: TEdit
Left = 8
Top = 40
end
object ComboBox1: TComboBox
Left = 8
Top = 72
Width = 145
Height = 21
ItemHeight = 13
TabOrder = 2
Text = 'ComboBox1'
end
object ListBox1: TListBox
Left = 8
Top = 96
Width = 121
Height = 97
ItemHeight = 13
TabOrder = 3
end
end
Wie man sieht habe ich den Button und das Edit ganz in die Ecke geschoben und die ganze Form ist nur noch 174 Pixel breit. Es werden also nur die Differenzen zum Vorgänger neu gespeichert. Alles andere bleibt ! Na gut noch Anhang.