169 похожих чатов

Всем привет! Подскажите пожалуйста, можно ли присвоить классовой переменной значение Self,

чтобы она ссылалась на разные экземпляры классов-наследников?
У меня получается, что эта переменная всегда ссылается на один и тот же экзепляр.

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;

4 ответов

13 просмотров

Self и так ссылается на экземпляр

Igor
Self и так ссылается на экземпляр

Он про классовую переменную

Класс один и классовая переменная только одна

Предлагаю изменить принцип, чтоб такое вообще не нужно было делать

Похожие вопросы

Обсуждают сегодня

Здравствуйте, вопрос по структурам данных. Были у вас случаи, когда пришлось писать деревья или двунаправленные списки?
/ /
48
а проверьте, собирается ли у кого сейчас транк лазаря через делюкс? у меня вот: fpcupdeluxe: info: Lazarus Native Installer (BuildModuleCustom: UserIDE): LazBuild: building Us...
Iluha Companets
20
Такой вопрос: Почему DocLister, если указать другие шаблоны для пагинации - ко всем указанными шаблоном присваивается пустая строка?
Кирилл Гацевич
11
добрый день. возможно ли изменить цвет окон лазаруса? Как?
Budemposmotret
35
This is a big issue. Just by being a citizen of a country, you are denied to contribute to Open Source software: https://youtu.be/L5Ec5jrpLVk?si=1iIuHnMPbCB4anV-
Sharuzzaman Ahmat Raslan
72
Мне тут приспичило встроить в программу форматировние текста SQL, расставить переносы строк и отступы так, чтобы лучше читалось. Я что-то свое изобразил, оно после ключевых сл...
Sergey Bodrov
11
Господа, а кто-нибудь сталкивался с размещением на TTabControl/TTabSheet множества контролов (> 100) с последующими External: Access violation? Вот буквально на ровном месте. ...
Dmitry
29
Вот например простой пример, как получить стоимость хешрейта монеты монеро с сайта whattomine.com c использование сеарилизатора при парсинге JSON TaskProfit := TTask.Run(proc...
Delphi Coder
2
А какие существуют способы обработки ошибок выделения памяти в ядре? Т.е., допустим, есть функция, которая возвращает адрес свободной страницы в физической памяти и диапазон в...
disba1ancer
51
Does anyone have some zeroday's left?
Wito!d ♥️🩷
44
Карта сайта