Созадание собственнго компонента в Delphi.

[Beren42]

Друзья, я создаю свой собственный компонент. Жму Component далее new component и т.д. Жму ok. Пишу код. А дальше что ? Как сделать чтобы компонент сохранялся на форме . У меня не получается (. Спасибо

[Mad_Cat]

Установка созданного компонента Component/Install Component...

Install Into New Package
Package file name: путь к dpk нового компонента
Package description: имя package

целиком

[Beren42]

Спасибо огромное !

[Beren42]

Вот созданный мной компонент. Но он не работает ( . По идее это должна быть кнопка. Если свойство Resizable:= true, то на кнопке появляется количество нажатий. Иначе на кнопке появляется ноль. Вот весь код

unit MyButton1;
interface
uses
  SysUtils, Classes, Controls, StdCtrls;
type
  TMyButton1 = class(TButton)
  private
    { Private declarations }
    FResizable:Boolean;
    ButtonBuffer:integer;
  protected
    { Protected declarations }
  public
    { Public declarations }
    procedure Click ; override;
  published
    { Published declarations }
    property Resizable:Boolean  read FResizable write FResizable;
  end;
procedure Register;
implementation
procedure Register;
begin
  RegisterComponents('Additional', [TMyButton1]);
end;
  procedure  TMyButton1.Click;
  begin
  inherited Click;
   if TMyButton1.Resizable : = True then
    begin
      ButtonBufer := ButtonBuffer + 1;
      TMyButton1.Text := IntToStr(ButtonBuffer);
    end
    else
     TMyButton1.Text := '0'
  end;
end.

Конкретно ошибка появляется в

  if TMyButton1.Resizable : = True then

Спасибо

[BlackFishSQL]

if TMyButton1.Resizable : = True then

Убери знак присвоить и поставь просто равно!)

if TMyButton1.Resizable = True then

[Beren42]

Изменил. Не помогло . "Method indentifier expected "

[Stilet]

TMyButton1.Resizable

Никого кроме меня не смущает попытка работы с классом?
Может быть стоит писать

Self.REsizable

, и автору читать внимательнее ошибки компилятора?

[Beren42]

Изменил в TTMyButton1.Resizable на Self.REsizable и TMyButton1.Text на Self.Text.
Ошибка : "Cannot debug project unless a host application is defined."

[Stilet]

Правильно ))
Компонент ты написал, но запустить его нельзя - это не приложение.
Нужно проинсталлировать компонент в палитру Делфи, кинуть его на форму и уже приложение с формой, на котором этот компонент запускать - это штатная схема.
Можно по хакерски - описать компонент в приложении, прописав его создание ручками, но ты сначала попробуй всетки первый вариант.

[Beren42]

Stilet, огромное спасибо !! ТЫ НЕ ПРЕДСТАВЛЯЕШЬ СКОЛЬО Я С ЭТОЙ КНОПКОЙ МУЧАЛСЯ. Просто ради любопытства: А почему нельзя через TMyButton1.Resizable и TMyButton1.Text ?