AW: Form als Parameter übergeben
Zitat:
|
AW: Form als Parameter übergeben
Also,
ich hab das umgesetzt wie du es beschrieben hast hab aber eine kleinigkeit geändert.
Code:
procedure CompFarbenSetzen(aOwner: TObject); //Hier von TComponet auf TObject geändert
implementation procedure CompFarbenSetzen(aOwner: TObject); // Das Selbe hier auch var ini: TIniFile; a : String;
Code:
es hat schon vorher funktioniert aber für spätere Modifikationen muß ich das TObject nehmen
h := StrToInt( a );
a := ini.ReadString('TEdit','Schriftfarbe','0'); k := StrToInt( a ); with aOwner as TForm do // hier "as TForm" ergänzt begin for i := 0 to ComponentCount -1 do if (Components[i] is TPanel) then begin Nochmals vielen Dank! |
AW: Form als Parameter übergeben
Das macht aber keinen Sinn. Wenn aOwner nicht mindestens vom Typ TForm ist, läufst Du an der Stelle "as TForm" in eine Exception.
|
AW: Form als Parameter übergeben
Wieso dass denn? :shock:
Form wird von TComponent abgeleitet Nur TComponent hat wiederum die Eigenschaft Components ist irgendwie nicht "Documentation by Code" Denn irgendwer könnte ja auf die Idee kommen da tatsächlich mal ein einfaches schnödes TObject zu übergeben und wundert sich, warum das knallt. Wenn der Zugriff auf die Quellen hat, dann sieht der, achso, ich darf da nur etwas übergeben was von Form abgeleitet ist. Warum also nicht gleich so die procedure so definieren? |
AW: Form als Parameter übergeben
Sach ich ja :mrgreen:
|
AW: Form als Parameter übergeben
Zitat:
Irgendwo gibt es doch so ein nettes Video, wo ein Programmierer neu in ein Unternehmen kommt und dort bestehenden Projekte weiter entwickelt. Problematisch daran, dass er ständig "the old and wise" fragen muss, weil ihm ständig etwas um die Ohren fliegt ;) Die haben ihre Bibliotheken auch so aufgebaut :mrgreen: Schade, ich finde den Link gerade nicht ... ist aber auf jeden Fall sehenswert :thumb: |
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:59 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz