Наследование контролов родителей

@Костяныч · Регистрация: 31.10.2010

Студворк — интернет-сервис помощи студентам

Добрый день.
Есть форма, на ней две кнопки. Создаем другую форму:

Delphi
1
MyForm = class(MainForm)...

На новой должны быть две кнопки с методами от кнопок-родителя, но при запуске почему-то пытается к кнопкам из новой формы добавить кнопки из родительской формы. Возникает конфликт одинаковых имен.
Подскажите пожалуйста, как на новую форму добавить контроллы с методами родительской формы?
Спасибо.

@mss · 21.01.2016, 08:17

Эеземпляр EditForm кто за тебя будет создавать, Пушкин ?

@Костяныч · 21.01.2016, 08:32 **[ТС]**

mss, глупый вопрос, а как в методе его правильно создать?
Без экземпляра кнопки свойство Top меняли...

Добавлено через 4 минуты
На

Delphi
1
EditForm:= TFEdit.Create;

выдает ошибку:"[DCC Error] E2035 Not enough actual parameters";

Добавлено через 3 минуты
У родителя

Delphi
1
2
3
4
5
6
7
8
constructor TFEdit.Create(AOwner: TComponent);
begin
  inherited;
  if Owner is TExForm then
    ExForm := (AOwner as TExForm).ExForm;
  if (Self is TFEInspector) and Assigned(ExForm) then
    (Self as TFEInspector).Init(ExForm);
end;

Добавлено через 1 минуту
Родитель был создан через Create, потом дочерняя форма, и теперь дочерняя через Create пытается создать экземпляр родителя. Разве так можно?

Добавлено через 4 минуты
Да и к dataSet есть доступ без создания экземпляра родительского класса...

@mss · 21.01.2016, 08:40

Ну и ?
Считай, загибай пальцы:

constructor TFEdit.Create(AOwner: TComponent); // сколько формальных параметров ожидается ? Один.
EditForm:= TFEdit.Create; // а фактических сколько передаешь ? Ни одного.

Сообщение от Костяныч

У родителя

Как связаны наследственными отношениями классы TFEMyClass и TFEdit ?
Судя по приведенному коду - вообще никак.

@Костяныч · 21.01.2016, 09:04 **[ТС]**

mss,

Delphi
1
2
3
4
5
...
type
  TFEMyClass = class(TFEdit)
    DP1: TDateTimePicker;
...

Добавлено через 3 минуты
И почему я из дочернего класса имею доступ к свойствам родительских контроллов?
А если я в этом методе пропишу еще присвоить Edit1 (дочерняя форма) значение из Edit1 (родительская форма). То ошибка....По отдельности присвоение любого значения и считывание работают...

Добавлено через 17 минут
Или может с потоками что не то, не могу понять.

@mss · 21.01.2016, 09:11

И чего ты лапшу вешаешь ?

Цитата из твоего поста #20:

TFEMyClass = class(TFParent)

А теперь у тебя с какого-то перепугу:

TFEMyClass = class(TFEdit)

@Костяныч · 21.01.2016, 09:18 **[ТС]**

Правильнее:

Delphi
1
TFEMyClass = class(TFParent)

Я с несколькими классами пытаюсь экспериментировать...Отсюда имена разные, а суть одна. Либо в функции работаем с родительскими контролами, либо с своими. Присвоение одно другим выдает ошибку.

Добавлено через 4 минуты
mss, короче вот:
uEdit

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
unit uEdit;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, StdCtrls, DBCtrls, Buttons, Mask, uDM, IniFiles;
 
type
  TFEditClass = class of TFEdit;
  TFEdit = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    EDS: TDataSource;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  protected
    ExForm: TMemIniFile;
  public
    { Public declarations }
    ParentConditionValue: string;
    ParentCondition: string;
    ParentUniqueKey: string;
    New: Boolean;
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
  end;
 
var
  FEdit: TFEdit;
 
implementation
 
uses RxLookup, comobj, uLib, DBClient, uRecErr, uExForm, ueInspector;
 
{$R *.DFM}
 
constructor TFEdit.Create(AOwner: TComponent);
begin
  inherited;
  if Owner is TExForm then
    ExForm := (AOwner as TExForm).ExForm;
  if (Self is TFEInspector) and Assigned(ExForm) then
    (Self as TFEInspector).Init(ExForm);
end;
 
procedure TFEdit.FormShow(Sender: TObject);
var
  i,re: integer;
  TopControl: TWinControl;
begin
  TopControl := nil;
  //re :=  ComponentCount;
  for i := 0 to ComponentCount - 1 do                                           //6
    if Components[i] is TWinControl then
      with Components[i] as TWinControl do
        if (TopControl = nil) or ((Top < TopControl.Top) and (Parent = Self) and Enabled) then
          TopControl := Self.Components[i] as TWinControl;                      //сюда 2 раза
  TopControl.SetFocus;
  if TopControl is TCustomEdit then
    (TopControl as TCustomEdit).SelectAll;
  for i := 0 to ComponentCount - 1 do                                           //6
    if Components[i] is TRxLookupControl then
      with
        ((Components[i] as TRxLookupControl).LookupSource.DataSet as TDataSet) do
      begin
        SQLWaitOn;
        if Tag = 0 then
          Close;
        Open;
      end;
end;
 
procedure TFEdit.BitBtn1Click(Sender: TObject);
begin
  //  if EDS.DataSet.State in [dsEdit, dsInsert] then
  if (EDS.DataSet as TClientDataSet).ApplyUpdates(0) = 0 then
    ModalResult := mrOk //должна быть на отдельной строке, не ModalResult
  else
    Abort
end;
 
procedure TFEdit.BitBtn2Click(Sender: TObject);
begin
  EDS.DataSet.Cancel;
  (EDS.DataSet as TClientDataSet).CancelUpdates;
end;
 
end.

ueChangePoint:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
unit ueChangePoint;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uEdit, DB, StdCtrls, Buttons, DBCtrlsEh, Mask, DBCtrls, ComCtrls;
 
type
  TFEChangePoint = class(TFEdit)
    DP1: TDateTimePicker;
    DP2: TDateTimePicker;
    DP3: TDateTimePicker;
    DP4: TDateTimePicker;
    Label2: TLabel;
    Label1: TLabel;
    Label3: TLabel;
    Coef: TDBNumberEditEh;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  FEChangePoint: TFEChangePoint;
 
implementation
 
uses
  uLib;
 
{$R *.dfm}
 
procedure TFEChangePoint.FormShow(Sender: TObject);
var
  EditForm: TFEdit;
  coeff: Integer;
  //CurrentClass: TFEChangePoint;
begin
  //self.Coef.Text := '1';//EditForm.EDS.DataSet.FieldByName('COEF').AsString;
  inherited;
  self.Coef.Text := '1';
  //EditForm := TFEdit.Create;
  //EditForm.BitBtn1.Top := 105;
  //EditForm.BitBtn2.Top := 105;
  //EditForm.EDS.DataSet.FieldByName('COEF').AsInteger := 5;
  //self.Edit1.Text := EditForm.EDS.DataSet.FieldByName('COEF').AsString;//EditForm.EDS.DataSet.FieldByName('COEF').AsString;
  //coeff := EditForm.EDS.DataSet.FieldByName('COEF').AsInteger;
  //ShowMessage(IntToStr(coeff));
 {* Date.Enabled := New;
  Time.Enabled := New;
  RBValue.Enabled := New;  *}
end;
 
end.

Добавлено через 45 секунд
Ошибка на 44 в ueChangePoint

@mss · 21.01.2016, 09:26

а где происходит конструирование экземпляра TFEChangePoint ?

@Костяныч · 21.01.2016, 09:28 **[ТС]**

mss, в строке 47 класса uEdit, насколько я понял.

@mss · 21.01.2016, 09:37

Нет, экземпляр любого класса (в дан.случае - TFEChangePoint) создается вызовом конструирующего метода этого класса, например:

ЭкземплярКлассаTFEChangePoint := TFEChangePoint.Create(ПараметрыКонструир ования);

После этого можно обращаться к свойствам и методам созданного таким образом объекта ЭкземплярКлассаTFEChangePoint.

Вот подобная строка она у тебя где ?

Новые блоги и статьи Все статьи Все блоги /
Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))
Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .	Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	21.01.2016, 08:17
	Эеземпляр EditForm кто за тебя будет создавать, Пушкин ? 1

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	21.01.2016, 09:26
	а где происходит конструирование экземпляра TFEChangePoint ? 0

@Костяныч 20 / 20 / 4 Регистрация: 31.10.2010 Сообщений: 1,240 Записей в блоге: 2
	21.01.2016, 09:28 [ТС]
	mss, в строке 47 класса uEdit, насколько я понял. 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	21.01.2016, 09:37
	Нет, экземпляр любого класса (в дан.случае - TFEChangePoint) создается вызовом конструирующего метода этого класса, например: ЭкземплярКлассаTFEChangePoint := TFEChangePoint.Create(ПараметрыКонструир ования); После этого можно обращаться к свойствам и методам созданного таким образом объекта ЭкземплярКлассаTFEChangePoint. Вот подобная строка она у тебя где ? 0