Форум: "Компоненты";
Текущий архив: 2006.01.15;
Скачать: [xml.tar.bz2];
ВнизКак переопределить свойство Найти похожие ветки
← →
mmms (2005-07-12 16:09) [0]Есть например DBGrid, у его колонок тип TColumn, хочется переделать этот TColumn у DBGrid, что бы заголовок у колонки был всегда по центру (taCenter), например (но не только из за этого! :) ). Т.е. в чем проблема, переопределить все свойства у DBGrid могу, а вот как бы ещё "долезть" до его TColumn, в рамках своего компанента от DBGrid (TMyDBGrid)?
← →
Юрий Зотов © (2005-07-12 16:20) [1]Никаких свойств переопределять не надо, все уже предусмотрено.
type
TMyColumn = class(TColumn)
... // Делаем свою колонку с нужным поведением
end;
TMyGrid = class(TDBGrid)
protected
function CreateColumns: TDBGridColumns; override;
end;
function TMyGrid.CreateColumns: TDBGridColumns;
begin
Result := TDBGridColumns.Create(Self, TMyColumn)
end;
И все. Грид будет иметь Ваши колонки.
← →
mmms (2005-07-12 16:51) [2]Юрий благодарю Вас за ответы мне за последние дни :) Все просто супер, надеюсь теперь то справлюсь с задуманным. Да и подвижки в написании компанентов есть, благодаря Вам!
← →
flying-home (2005-07-13 10:58) [3]Извините, продолжу ветку.
А если нужны потомки от TListItem или TTabSheet?
Например, мне нужен PageControl, у каждого TabSheet которого есть свойство Data (Pointer)
← →
Юрий Зотов © (2005-07-13 12:08) [4]> А если нужны потомки от TListItem или TTabSheet?
То смотрим исходники VCL.
У TListItem обнаруживаем следующее:
function CreateListItem: TListItem; virtual;
function CreateListItems: TListItems; virtual;
Смотрим код этих методов - и все становится ясно. Заодно обнаруживаем событие OnCreateItemClass - это еще один способ.
А у TPageControl обнаруживаем, что список Pages - это обычный TList, а он может хранить любые указатели. Значит, никто не мешает написать в редакторе компонента примерно следующее:
TMyTabSheet.Create(...).PageControl := MyPageControl1
И тогда в design-time будут создаваться страницы нужного класса. А в run-time их можно создать той же самой строкой.
← →
flying-home (2005-07-13 12:12) [5]спасибо
Страницы: 1 вся ветка
Форум: "Компоненты";
Текущий архив: 2006.01.15;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.014 c