Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.05.2009, 18:14   #1
Levsha100
Заблокирован
Старожил
 
Регистрация: 20.07.2008
Сообщений: 4,032
По умолчанию Проблема при создании компонента

Здравствуйте!
Создаю для себя компонент и возникла проблема: Делфи ругаеться на выделенную строчку. Помогите исправить ошибку, пожалуйста.
Код:
unit MyControlPanel;

interface

uses
  SysUtils, Classes, Controls, ExtCtrls;

type
  TMyControlPanel = class(TPanel)

  private
    { Private declarations }
    slider: TTrackBar;
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    { Published declarations }
    property Visible; 
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TMyControlPanel]);
end;

{ TMyControlPanel }

constructor TMyControlPanel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Width := 50; 
  Height := 50;
  slider := TTrackBar.Create(Self);
  slider.top :=10;
  slider.left:=10;
  slider.width:=30;
  slider.min:=-10;
  slider.max:=+10;
  slider.position:=0;
end;

destructor TMyControlPanel.Destroy;
begin
  slider.Free;
  inherited Destroy; 
end;

end.
Вот будущий вид компонента.
Цитата:
[DCC Error] MyControlPanel.pas(13): E2003 Undeclared identifier: 'TTrackBar'
-ошибка.
Изображения
Тип файла: jpg Img1.jpg (26.5 Кб, 132 просмотров)

Последний раз редактировалось Levsha100; 01.05.2009 в 20:22.
Levsha100 вне форума Ответить с цитированием
Старый 01.05.2009, 20:11   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

а что Дельфи говорит?
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 02.05.2009, 00:31   #3
qpokyc
Форумчанин
 
Аватар для qpokyc
 
Регистрация: 07.04.2009
Сообщений: 117
По умолчанию

ComCtrls - в этом модуле TTrackBar описан.

... и исчо. Чтобы не писать так:
Код:
  slider.top :=10;
  slider.left:=10;
  slider.width:=30;
  slider.min:=-10;
  slider.max:=+10;
  slider.position:=0;
Можно написать так:
Код:
  with slider do begin
    top :=10;
    left:=10;
    width:=30;
    min:=-10;
    max:=+10;
    position:=0;
  end;
Copyright © qpokyc (qpy[the dog]bk.ru), 2008-2009 г.

Последний раз редактировалось qpokyc; 02.05.2009 в 00:35.
qpokyc вне форума Ответить с цитированием
Старый 02.05.2009, 12:05   #4
Levsha100
Заблокирован
Старожил
 
Регистрация: 20.07.2008
Сообщений: 4,032
Радость

Спасибо!!
P.S. Я про
Код:
with
знаю, просто я его вставляю в самом конце- привычка...
Levsha100 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблема перехвата сообщений при создании невизуального компонента volod3000 Компоненты Delphi 7 08.03.2009 14:13
Проблема при создании таблицы используя sql Proof БД в Delphi 2 26.02.2009 22:09
Mootools.Проблема определения события OnClick элемента списка при его динамическом создании. ilusha JavaScript, Ajax 2 25.02.2009 10:43
Проблема при создании БД HAMMAN БД в Delphi 4 25.04.2008 08:44
проблема при создании отчета в QuickRep Алёна БД в Delphi 2 16.11.2007 11:01