чтобы она ссылалась на разные экземпляры классов-наследников?
У меня получается, что эта переменная всегда ссылается на один и тот же экзепляр.
type
PExtControl = ^TExtControl;
TExtControl = class(TObject)
private
// ...
class var
FControlVar: TExtControl;
class function WndProc(AWnd: HWND; AMsg: NativeInt; W: WParam; L: LParam): LResult; stdcall; static;
public
constructor Create(AParent: HWND);
destructor Destroy; override;
procedure Free(AVar: Pointer);
procedure Repaint;
end;
Self и так ссылается на экземпляр
Он про классовую переменную
Класс один и классовая переменная только одна
Предлагаю изменить принцип, чтоб такое вообще не нужно было делать
Обсуждают сегодня