Вернуться   CoderX :: Forums > Основные форумы > Программинг
Войти через OpenID

Программинг Форум для тем связанных с программированием

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 22.01.2012, 02:38   #1
Местный
 
Аватар для Sherman
 
Регистрация: 24.04.2008
Сообщений: 364
Сказал Спасибо: 15
Имеет 116 спасибок в 83 сообщенях
Sherman пока неопределено
По умолчанию Нужна помощь , Компоненты и классы

Что-то под ночь подтупливаю....
Нужна помощь....

PHP код:
unit uMain;

interface

uses
  VirtualTrees
,
  
uBaseListTreeViewuBaseListView
  
acAlphaImageList;

type
  
// HACK класса
  // Тут я перекрываю класс TVirtualStringTree своим объявленным в uBaseListTreeView
  
TVirtualStringTree = class (uBaseListTreeView.TBaseListTreeView
описание в uBaseListTreeView:
PHP код:
unit uBaseListTreeView;

interface

uses
VirtualTrees
;

type
  TBaseListTreeView 
= class(TVirtualStringTree
Все хорошо, но понадобилось добавить на форму тот же компонент, но перекрыть его классом , объявленным в uBaseListView

Как это лучше сделать, что то правда - туплю???

update...

Эксперименты с вариантом:
PHP код:
type
  TMainForm 
= class(TForm)
    
Panel1TPanel;
    
Splitter1TSplitter;
    
TreeImageListTsAlphaImageList;
    
Panel2TPanel;
    
Panel3TPanel;
    
BaseListTree uBaseListTreeView.TVirtualStringTree;
    
BaseList uBaseListView.TVirtualStringTree;
    
Button1TButton;
    
Button2TButton
Провалились
BaseList - потомок uBaseListTreeView.TVirtualStringTree и никак не хочет быть потомком uBaseListView.TVirtualStringTree

update...

Вобщем, пошел по пути наименьшего сопротивления и выход нашел в переопределении еще одного компонента... по типу:


PHP код:
type
  TVirtualStringTree 
= class(TBaseListTreeView);
type
  TVirtualDrawTree 
= class(TBaseListView);

type
  TMainForm 
= class(TForm)
    
BaseListTreeTVirtualStringTree;
    
BaseListTVirtualDrawTree;

unit uBaseListTreeView;
type
  TBaseListTreeView 
= class(TVirtualStringTree)

unit uBaseListView;
type
  TBaseListView 
= class(TVirtualStringTree

Последний раз редактировалось Sherman, 22.01.2012 в 04:53.
Sherman вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Основные форумы > Программинг



Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 03:09.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!