Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Наследник TForm, - 
V
    Опции темы
NOCaut
Дата 15.8.2010, 17:27 (ссылка) | (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 381
Регистрация: 5.12.2008

Репутация: нет
Всего: 0
Привет! Создал класс унаследовав TForm. После єтого у моей формы попропадали некоторые свойства и методы. Что делать?
PM MAIL   Вверх
CodeMonkey
Дата 15.8.2010, 17:45 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89
Ваша вера в наши телепатические способности помогает скорейшему решению вашей проблемы.


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
NOCaut
Дата 15.8.2010, 18:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 381
Регистрация: 5.12.2008

Репутация: нет
Всего: 0
Пропали такие методи: onShow,onClose; И свойства: AlphaBlandValue... .

код класа:
Код

unit ActiveForm;
 
interface
 
uses
  Windows, Messages, Controls, SysUtils, Classes, Graphics, Forms, ExtCtrls,
  StdCtrls;
 
type
  TActiveForm = class(TForm)
  private
    
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
  published
 
  end;
 
 
implementation
 
{ TActiveForm }
 
constructor TActiveForm.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
 
end;
 
destructor TActiveForm.Destroy;
begin
 
  inherited Destroy;
end;
end.


Код юнита:
Код

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,*ActiveForm*;
 
type
  TForm1 = class(TActiveForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
end.
PM MAIL   Вверх
xkor
Дата 15.8.2010, 19:56 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: 1
Всего: 4
NOCaut, ну при таком коде они никуда пропасть не могли...
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
NOCaut
Дата 15.8.2010, 20:18 (ссылка) | (голосов:3) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 381
Регистрация: 5.12.2008

Репутация: нет
Всего: 0
спасибо умник! я ето й сам вижу, а что не так сказать слабо?
PM MAIL   Вверх
CodeMonkey
Дата 15.8.2010, 20:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89
Цитата(NOCaut @  15.8.2010,  21:18 Найти цитируемый пост)
а что не так сказать слабо? 


А всё так. Методы и свойства все на месте.


--------------------
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
PM MAIL WWW ICQ Skype GTalk Jabber   Вверх
Frees
Дата 15.8.2010, 20:30 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54
Цитата(NOCaut @  15.8.2010,  21:50 Найти цитируемый пост)
Пропали такие методи:

а с чего ты взял что они пропали




--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
NOCaut
Дата 15.8.2010, 20:40 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 381
Регистрация: 5.12.2008

Репутация: нет
Всего: 0
Потомушто в IDE я их невижу, Если у кого то из вас ето работает, то пришлите мне маленький пример. Бо у меня в упор непашет.

правил даже *.dfm файл и ничего.

Код

inherited Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 311
  ClientWidth = 643
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
end
PM MAIL   Вверх
БелАмор
Дата 15.8.2010, 21:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: 5
Всего: 17
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=832
PM   Вверх
Frees
Дата 15.8.2010, 21:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54
TActiveForm уже есть такой класс, смени имя..


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
NOCaut
Дата 15.8.2010, 22:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 381
Регистрация: 5.12.2008

Репутация: нет
Всего: 0
Проект компилится, но  форми невижу, ошибка: Error Creating form Acestor "TMyActiveForm" not found
PM MAIL   Вверх
Frees
Дата 15.8.2010, 22:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54
а ты в dfm  имя сменил?


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
NOCaut
Дата 15.8.2010, 23:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 381
Регистрация: 5.12.2008

Репутация: нет
Всего: 0
Какое имя?
Код

inherited Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 311
  ClientWidth = 643
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
end
PM MAIL   Вверх
Frees
Дата 15.8.2010, 23:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54
Цитата(NOCaut @  16.8.2010,  02:21 Найти цитируемый пост)
Какое имя?

у формы TMyActiveForm в dfm класс переименовал


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
NOCaut
Дата 15.8.2010, 23:36 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 381
Регистрация: 5.12.2008

Репутация: нет
Всего: 0
TMyActiveForm - ето класc у него нет *.dfm. Я спать до завтра. папа
Код

unit MyActiveForm;

interface

uses
  Windows, Messages, Controls, SysUtils, Classes, Graphics, Forms, ExtCtrls,
  StdCtrls;

type
  TMyActiveForm = class(TForm)
  private

  protected
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
  published

  end;

implementation

{ TMyActiveForm }

constructor TMyActiveForm.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

end;

destructor TMyActiveForm.Destroy;
begin

  inherited Destroy;
end;

end.




Это сообщение отредактировал(а) NOCaut - 15.8.2010, 23:37
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0862 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.