Prinzip der Datenkapselung austricksen?

[Phoenix]

Genau, scp hat da schon nen sehr guten Ansatz geliefert.

Delphi-Quellcode:

procedure THallo.OnLalaClick(sender: TObject);
begin
   if sender is TPanel then   // wenn es wirklich ein Panel ist...
   with sender as TPanel do   // dann tue jetzt so, als seien wir direkt das panel:
   begin
      if Name = 'pnlLala1' then
         Free;                 // panel Lala 1 freigeben
       if Name = 'pnlLala2' then
         Caption := 'Panel Lala 2';        // bei panel lala 2 den angezeigten Text ändern

      // hier drin (in dem with... block) musst Du aufpassen:
      // Alle Aufrufe wie z.B. Free oder Caption werden erstmal auf die Klasse TPanel bezogen.
      // nur, wenn es die Eigenschaft / Methode dort nicht gibt, dann wird die entsprechende
      // ausprägung auf THallo aufgerufen. Hier redet man vom 'Scope' in dem man sich befindet.
   end;
end;