ООП: доступ к полям наследника через предка

[Stilet]

Я если и использую такие приемы, то только в параметрах какому-нить плагину.
Хотя это пару раз то и было. А так чтоб в цельной программе. да еще и своей и не чужеписанной... Сомневаюсь что такие выкрутасы... вернее говоря сомневаюсь что я когда-нибудь пойду на такое.

[Аватар]

Stilet, без такого бывает и не обойдешься. Тот же TCollection и TCollectionItem

[WhiskasTM]

Такое пригодилось бы, когда делаешь помощника для работы с интерфейсом и разделяешь код. И в теории было бы так:

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  end;

  TWorker = class(TForm1)
  private
    FLastButton : Integer;
    class procedure Thread(const P:Pointer);static;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//Form1 methods
procedure TForm1.Button1Click(Sender: TObject);
begin
FLastButton := 0; //доступ к наследнику
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
FLastButton := 1; //доступ к наследнику
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
FLastButton := 2; //доступ к наследнику
end;

//Worker methods
class procedure TWorker.Thread(const P:Pointer);

  procedure USER_CLICK_BUTTON_1;
  begin 
    Button1.Enabled := not Button1.Enabled;// доступ к предку
  end;

  procedure USER_CLICK_BUTTON_2;
  begin 
    Button2.Enabled := not Button2.Enabled;// доступ к предку
  end;

  procedure USER_CLICK_BUTTON_3;
  begin 
    Button3.Enabled := not Button3.Enabled;// доступ к предку
  end;


begin
with TWorker(P^) do
while True do
begin
  case FLastButton of
  1:USER_CLICK_BUTTON_1;
  2:USER_CLICK_BUTTON_2;
  3:USER_CLICK_BUTTON_3;
  end;
end;
end;

Этакий двусторонний класс, или хелпер для Form1 с возможностью расширять и поля.

[eval]

чтобы было при компиляции придумали всякие дженереки и т.п. штуки