Vererbung bestimmter Eigenschaften deaktiviern

[delphin]

Hallo,

ich habe von einem CheckListfeld eine Edit Feld zur Eingabe wiefolgt abgeleitet:

Delphi-Quellcode:

 
Edit1:=TEdit.Create(nil)
Edit1.Parent:=CheckListBox;

Nun erbt Edit erstmal alle Eigenschaften von meiner Checklistbox. Soweit logisch. Wenn ich nun mein Editfeld in Höhe und Schriftgröße wie folgt ändern möchte:

Edit1.Height:=DrawRect.Bottom-DrawRect.Top+1; dann bleibt das ohne Auswirkung!?

Wie kann ich die Vererbung für diese Eigenschaft abstellen ?

[mkinzler]

mach sie privat.

[delphin]

Wie meinst Du das mit:

Zitat:

mach sie privat.

Wenn ich die Deklartion so einstelle:

Delphi-Quellcode:

TForm1 = class(TForm)
    // Edit1: TEdit;
    CheckListBox: TCheckListBox;
    procedure FormCreate(Sender: TObject);
    procedure CheckListBoxDblClick(Sender: TObject);
    procedure CheckListBoxExit(Sender: TObject);
  private
    { Private-Deklarationen }
    Edit1: TEdit;
  public
    { Public-Deklarationen }
  end;

bringt das keine Punkt. Die Zuweisung von Edit.Height:=xy hat keine Auswirkung. Die Höhe bleibt wie sie geerbt wurde!

Gerd

[MrKnogge]

Was ist DrawRect ?
Wenn ich die Höhe eines Edit ändere, so funktioniert das ohne Probleme !

[TStringlist]

Zitat von delphin:

ich habe von einem CheckListfeld eine Edit Feld zur Eingabe wiefolgt abgeleitet:

Delphi-Quellcode:

 
Edit1:=TEdit.Create(nil)
Edit1.Parent:=CheckListBox;

Nun erbt Edit erstmal alle Eigenschaften von meiner Checklistbox. Soweit logisch.

Wahrscheinlich hast Du noch keinen rechten Durchblick diesbezüglich, aber eine Parent-Zuweisung bewirkt nur, dass das Edit1 danach visuell auf deiner CheckListBox draufsitzt, bzw. oben drauf zum Vorschein kommt. Sonst nichts weiter!

[edit=Christian Seehase]Doppelpost gelöscht. Mfg, Christian Seehase[/edit]

[Hansa]

So ist es. Die OOP-Konzepte, insbesondere Vererbung scheinen nicht bekannt zu sein. Vererbt wird so jedenfalls nichts.

[delphin]

Hallo,

mir ist sehr wohl klar, das ich mit der Anweisung

Edit1.Parent:=CheckListBox; die erstellte Komponente auf der Checklistbox sichtbar mache.
Trotzdem bleibe ich dabei, dass es dadurch auch die Eigenschaft der Checklistbox irgendwie "erbt".

mit folgender Anweisung:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
Var DrawRect: TRect;
begin {== Checklistbox erzeugen ===========================}
      CheckListBox:=TCheckListBox.Create(Form1);
      CheckListBox.Parent:=(Form1); 
      CheckListBox.Items.Add('Zeile 1');
      CheckListBox.Items.Add('Zeile 2');
      CheckListBox.Items.Add('Zeile 3');
      CheckListBox.Font.Size:=10;      // diesen Parameter erhält oder erbt auch Edit1 !!
      
      {== Editfeld erzeugen und auf Checkbox legen =======}
      Edit1:=TEdit.Create(Form1);
      Edit1.Parent:=CheckListBox;
      
      {== Ermitteln der Edit.Höhe über Größe der CheckListbox ==}
      DrawRect:=CheckListBox.ItemRect(0);
      Edit1.Height:=DrawRect.Bottom-DrawRect.Top+2;  
      Edit1.Visible:=false;
end;

Fragen:
1. Die Zuweisung für Edit.Height wird hier völlig ignoriert !
2. Erhält die Edit-Komponente z.B. genau die Schriftgöße, die Checklistbox zugewiesen bekommt. Warum, wenn nicht geerbt ?

3. schreibt man z.B. für das Ereignis Doppelklick folgendes:

Delphi-Quellcode:

  //Variante 1:
procedure TForm1.CheckListBoxDblClick(Sender: TObject);
Var DrawRect: TRect;
begin DrawRect:=CheckListBox.ItemRect(CheckListBox.ItemIndex);
      Edit1.Text:=CheckListBox.Items.Strings[CheckListBox.ItemIndex];
      Edit1.Top:=DrawRect.Top;
      Edit1.Visible:=true;
end;

wird die im OnCreate-Ereignis eingestelle Größe völlig ignoriert !

schreibt man aber für das Ereignis Doppelklick folgendes:

Delphi-Quellcode:

  //Variante 2:
procedure TForm1.CheckListBoxDblClick(Sender: TObject);
Var DrawRect: TRect;
begin DrawRect:=CheckListBox.ItemRect(CheckListBox.ItemIndex);
      Edit1.Text:=CheckListBox.Items.Strings[CheckListBox.ItemIndex];
      Edit1.Top:=DrawRect.Top;
      Edit1.Height:=DrawRect.Bottom-DrawRect.Top+2;  // <== erneute Zuweisung der Höhe
      Edit1.Visible:=true;
end;

funktioniert es immer- aber erst - ab dem zweiten Aufruf korrekt.

Vielleicht habt hier darauf dann auch eine Antwort ? :roll:

Gruß Gerd

[MrKnogge]

Zitat von delphin:

Trotzdem bleibe ich dabei, dass es dadurch auch die Eigenschaft der Checklistbox irgendwie "erbt".

Nein tut es nicht.

Zitat von delphin:

CheckListBox.Font.Size:=10; // diesen Parameter erhält oder erbt auch Edit1 !!

Schau dir mal die Eigenschaft ParentFont von TEdit an.

Gruß

[TStringlist]

@delphin

Die Vokabel "erben" ist in Delphi ein absolut zentraler Begriff! Einer der ausdrückt, dass bei einer Komponentenableitung die Eigenschaften einer Ursprungsklasse komplett auf die dabei neu entstehende Klasse übergehen.

Was Du bezüglich einer Zuweisung der Parent-Property meinst, ist aber eher nur ein damit eventuell auch noch gleichzeitiges Mitzuweisen einiger weniger anderer Properties, wie Color o. Font. Und zwar auch wieder abhängig davon, ob z.B. im OI solche weiteren (boolschen) Properties wie ParentColor o. ParentFont ein TRUE oder FALSE geladen haben.

[Hansa]

Nene, so wird das nichts. Du musst dir mal zumindest über die Nomenklatur Klarheit verschaffen. Der Begriff "Vererbung" macht doch nur Sinn, wenn es einen Erben gibt. Und der muss einen Vorfahren haben, sonst kann er ja nichts erben. Inwiefern trifft das jetzt auf ein Edit und eine Checkbox zu ? Also : was soll denn da überhaupt vererbt werden ?

Irgendwo gibt es wohl schon eine gemeinsame Wurzel, aber wo ? Bei Adam und Eva vielleicht ? Um bei Edit/Checkbox zu bleiben : das zeichnen der Umrandung, ja das wäre eine Gemeinsamkeit. Aber das ist doch eine sehr schwache Grundlage, um etwas zu vererben. Typischer Fehler auch in der Komponentenentwicklung : anstatt sich einen guten Vorfahren rauszusuchen und möglichst viel zu verwenden (von dem zu erben) wird das Rad komplett neu erfunden und man fängt bei 0 an, also mit TComponent usw. Ist hier jeden Tag nachzulesen.

Was Du willst ist das Kopieren/Setzen von Eigenschaften von irgendwo kopiert. Da wird nichts vererbt, sondern es werden lediglich Werte übernommen.

Wegen roter Kasten :

Zitat von TStringlist:

Die Vokabel "erben" ist in Delphi ein absolut zentraler Begriff! Einer der ausdrückt, dass bei einer Komponentenableitung die Eigenschaften einer Ursprungsklasse komplett auf die dabei neu entstehende Klasse übergehen.

Komplett geht nichts "über". Das kann man schon einschränken. Dafür gibt es (siehe mkinzlers Beitrag) private und in diesem Falle protected etc. Und dann noch override, inherited usw.

Ich bleibe dabei : so wird das nichts.