Form als Parameter übergeben

[Sir Rufo]

Zitat von Aleshi:

es funktioniert nun

Es wäre schön, wenn du jetzt noch hinterlassen würdest, wie du es genau umgesetzt hast, dann hätten auch alle etwas davon, die später einmal hier hereinschauen

[Aleshi]

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:

   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

es hat schon vorher funktioniert aber für spätere Modifikationen muß ich das TObject nehmen

Nochmals vielen Dank!

[DeddyH]

Das macht aber keinen Sinn. Wenn aOwner nicht mindestens vom Typ TForm ist, läufst Du an der Stelle "as TForm" in eine Exception.

[Sir Rufo]

Wieso dass denn?

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?

[DeddyH]

Sach ich ja

[Sir Rufo]

Zitat von DeddyH:

Sach ich ja

aber nicht so ausführlich

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


Schade, ich finde den Link gerade nicht ... ist aber auf jeden Fall sehenswert