Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 737 • TDictionary Custom Sort 6 739 • Fast Watermark Sources 6 526 • 3D Designer 9 467 • Sik Screen Capture 6 856 • Patch Maker 7 302 • Айболит (remote control) 7 251 • ListBox Drag & Drop 6 107 • Доска для игры Реверси 97 929 • Графические эффекты 7 426 • Рисование по маске 6 720 • Перетаскивание изображений 5 573 • Canvas Drawing 5 954 • Рисование Луны 5 737 • Поворот изображения 5 194 • Рисование стержней 3 800 • Paint on Shape 2 976 • Генератор кроссвордов 3 914 • Головоломка Paletto 3 111 • Теорема Монжа об окружностях 3 932 • Пазл Numbrix 2 583 • Заборы и коммивояжеры 3 385 • Игра HIP 2 325 • Игра Go (Го) 2 221 • Симулятор лифта 2 626 • Программа укладки плитки 2 209 • Генератор лабиринта 2 730 • Проверка числового ввода 2 366 • HEX View 2 706 • Физический маятник 2 377

Главная

Исходники (более 1 300 примеров)

Компоненты

Форум

Получение ссылки на класс из объекта 2

Автор: Pat Ritchey

Мне необходимо получить ссылку на класс из объекта...

TObject.ClassType

var
  ClassRef : TComponentClass;
  NewComp:TComponent;
begin
  TClass(ClassRef) := Sender.ClassType;
  NewComp := ClassRef.Create(Self);
...