Rambler's Top100
"Knowledge itself is power"
F.Bacon
Поиск | Карта сайта | Помощь | О проекте | ТТХ  
 Круглый стол
  
Правила КС
>> Настройки

Фильтр вопросов
>> Новые вопросы
отслеживать по
>> Новые ответы

Избранное

Страница вопросов
Поиск по КС


Специальные проекты:
>> К л ю к в а
>> Г о л о в о л о м к и

Вопрос №

Задать вопрос
Off-topic вопросы

Помощь

 
 К н и г и
 
Книжная полка
 
 
Библиотека
 
  
  
 


Поиск
 
Поиск по КС
Поиск в статьях
Яndex© + Google©
Поиск книг

 
  
Тематический каталог
Все манускрипты

 
  
Карта VCL
ОШИБКИ
Сообщения системы

 
Форумы
 
Круглый стол
Новые вопросы

 
  
Базарная площадь
Городская площадь

 
   
С Л С

 
Летопись
 
Королевские Хроники
Рыцарский Зал
Глас народа!

 
  
ТТХ
Конкурсы
Королевская клюква

 
Разделы
 
Hello, World!
Лицей

Квинтана

 
  
Сокровищница
Подземелье Магов
Подводные камни
Свитки

 
  
Школа ОБЕРОНА

 
  
Арсенальная башня
Фолианты
Полигон

 
  
Книга Песка
Дальние земли

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
  
 
Во Флориде и в Королевстве сейчас  14:07[Войти] | [Зарегистрироваться]
Ответ на вопрос № 29175

25-02-2005 02:09
Здравствуйте!
Необходимо вписать в TShape текст (TLabel), а также научить этот новый TShape по клику передавать параметр(ы). Нужно переписать компонент TShape? Помогите плз ....
Я в Delphi новичок, но в примере разобраться смогу :-)

[+] Добавить в избранные вопросы

Отслеживать ответы на этот вопрос по RSS

Ответы:


Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице.
Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.

25-02-2005 02:55
Не понял только, причем тут TLabel?

Нужно определить новый класс -- потомок TShape -- ну и определи его. Чтобы не морочиться с регистрацией собственного компонента, можешь определить его с тем же именем TShape путем указания модуля, в котором лежит оригинальный TShape. Например, так:

type
  TShape = class(ExtCtrls.TShape)

В этом случае ты сможешь позиционировать в билдере оригинальный TShape, а при работе программы будет использлваться твой собственный.

Ну а после этого тебе надо будет добавить к своему классу поле, хранящее текст для вывода и дописать процедуру Paint.

К примеру, может быть такая реализация:


type
  TShape = class(ExtCtrls.TShape)
  private
    FMyLabel : String;
    procedure SetMyLabel(const S : String);
  protected
    procedure Paint; override;
  public
    property MyLabel : String read FMyLabel write SetMyLabel;
    constructor Create(AOwner : TComponent); override;
  end;

implementation

constructor TShape.Create(AOwner : TComponent);
begin
  inherited Create(AOwner);
  FMyLabel:='';
end;

procedure TSape.SetMyLabel(const S : String);
begin
  if MyLabel = S then Exit;
  FMyLabel:=S;
  Invalidate;
end;

procedure TShape.Paint;
begin
  inherited Paint;
//Дальше свой собственный вывод строки, например такой:
  Canvas.TextOut(2,2,MyLabel);
end;



Комментарии к коду.

1. Конструктор можно не создавать (наверное). Но я с давних времен люблю явно инициализировать все введенные мной переменные (или поля моих классов), чтобы быть уверенным в правильном их начальном значении. Это только в VBA вновь созданная строка изначально является пустой.

2. По уму, если у тебя есть текст, то нужно заводить еще и свойство Font, и, может быть, какое-нибудь выравнивание. Соответствующим образом надо выполнять вывод текста в процедуре Paint.

3. Про обработку клика ищи сам. И непонятно (куда передавать?), и, честно говоря, лениво все делать за тебя :-)

А вообще-то смотри реализацию VCL-компонент. Очень способствует освоению.

Добавьте свое cообщение

Вашe имя:  [Войти]
Ваш адрес (e-mail):На Королевстве все адреса защищаются от спам-роботов
контрольный вопрос:
Кто съел Красную шапочку?
в качестве ответа на вопрос или загадку следует давать только одно слово в именительном падеже и именно в такой форме, как оно используется в оригинале.
Надоело отвечать на странные вопросы? Зарегистрируйтесь на сайте.
Тип сообщения:
Текст:
Жирный шрифт  Наклонный шрифт  Подчеркнутый шрифт  Выравнивание по центру  Список  Заголовок  Разделительная линия  Код  Маленький шрифт  Крупный шрифт  Цитирование блока текста  Строчное цитирование
  • вопрос Круглого стола № XXX

  • вопрос № YYY в тесте № XXX Рыцарской Квинтаны

  • сообщение № YYY в теме № XXX Базарной площади
  • обсуждение темы № YYY Базарной площади
  •  
     Правила оформления сообщений на Королевстве

    Страница избранных вопросов Круглого стола.
      
    Время на сайте: GMT минус 5 часов

    Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
    Функция может не работать в некоторых версиях броузеров.

    Web hosting for this web site provided by DotNetPark (ASP.NET, SharePoint, MS SQL hosting)  
    Software for IIS, Hyper-V, MS SQL. Tools for Windows server administrators. Server migration utilities  

     
    © При использовании любых материалов «Королевства Delphi» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
    Все используемые на сайте торговые марки являются собственностью их производителей.

    Яндекс цитирования