VPF::property не видна в Object Inspector - Форум программистов

Bose

Дата 8.11.2005, 16:10 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1458
Регистрация: 5.3.2005
Где: Riga, Latvia

Репутация: 23
Всего: 51

есть класс-родитель формы.

Код


  TcsForm = class(TForm)
    procedure RefreshData; virtual;
  private
    FScrollForm: boolean;
    procedure SetScrollForm(const Value: boolean);
  public
    constructor Create(AOwner: TComponent); override;
  published
      property ScrollForm:boolean read FScrollForm write SetScrollForm stored True;
  end;

почему в формах, которые я делаю на основе этой(

Код

TForm1 = class(TcsForm)

), не видно моей

Код

property ScrollForm

? Что здесь не так?

p.s> с фреймами такая же проблема... smile

--------------------

Лучшее о Delphi за 2013 год. Подборка ссылок.

Rennigth

Дата 8.11.2005, 17:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

Неуверен, но вроде их надо в наследниках переобъявлять, типа:

Код


TForm1 = class(TcsForm)
published
  property ScrollForm;
end;

Это сообщение отредактировал(а) Rennigth - 8.11.2005, 17:30

--------------------

(* Honesta mors turpi vita potior *)

Bose

Дата 8.11.2005, 17:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1458
Регистрация: 5.3.2005
Где: Riga, Latvia

Репутация: 23
Всего: 51

у меня в общем-то есть подозрение, что такое вообще невозможно... точнее возможно, но только для компонентов, которые потом на палитру вешаются..... но хочется услышать мнение профессионалов smile

--------------------

Лучшее о Delphi за 2013 год. Подборка ссылок.

Rrader

Дата 10.11.2005, 08:17 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TcsForm = class(TForm)
    procedure RefreshData; virtual;
  private
    FScrollForm: boolean;
    procedure SetScrollForm(const Value: boolean);
  public
    constructor Create(AOwner: TComponent); override;
  published
      property ScrollForm:boolean read FScrollForm write SetScrollForm stored True;
  end;
  
  TForm1 = class(TcsForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TcsForm }

constructor TcsForm.Create(AOwner: TComponent);
begin
  inherited;
  //
end;

procedure TcsForm.RefreshData;
begin
  //
end;

procedure TcsForm.SetScrollForm(const Value: boolean);
begin
 ShowMessage('Value: ' +
   BoolToStr(Value, True));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Self.ScrollForm := False;
end;

end.

--------------------

Let's do this quickly!
Rest in peace, Vit!

Alexeis

Дата 10.11.2005, 10:40 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Скорее всего в Object Inspecor виден не объект класса TcsForm (поскольку такой компонент не зарегистрирован)
а его полиморф

Код


   form1 as TForm

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »