| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Form4:=Tform3.create(self);

ymin ©   (2002-04-23 09:16:00) 

Form3, Form4: TForm3;

implementation

uses Unit1, Unit2;

{$R *.dfm}

var i,y,s,k,m:integer;

procedure TForm3.BitBtn1Click(Sender: TObject);
begin
form2.visible:=true;
form3.visible:=false;
form1.visible:=true;

......
Form4:=Tform3.create(self);
form4.show;
form3.Hide;
...
procedure Tform3.bitBtn1Click(Sender: TObject);
begin
....
теперь хочу работать с формой 4, а при отладке пишет redeclaration Tform3.bitBtn1Click

В чем дело?

---

Alx2   (2002-04-23 09:51:00) [1]

Если не нужно виртуальности, то так, например:
TForm4 = class(TForm3)
procedure bitBtn1Click(Sender: TObject);
end;
Var Form4 : TForm4;
implementation
procedure TForm4.bitBtn1Click(Sender: TObject);
begin
........
end;

-------
Либо можно в Delphi зайти в меню File->New...->[Вкладка с названием твоего проекта]->Выбрать Form3->Нажать "Ok"
Создатся новая форма, наследующая все методы родительской TForm3, которые можно будет переопределить.

---

ymin   (2002-04-23 09:43:00) [2]

А как это в коде написать?

---

Alx2   (2002-04-23 09:37:00) [3]

Делай наследника TForm4 от TForm3.
В нем переопределяй метод bitBtn1Click.
И объяви экземпляр класса Form4 : TForm4.

---

ymin   (2002-04-23 09:30:00) [4]

а как мне описать procedure TForm3.BitBtn1Click(Sender: TObject);
но уже в созданной Form4???

---

Alx2   (2002-04-23 09:26:00) [5]

Вот эти строки в программы одинаковы:
>procedure TForm3.BitBtn1Click(Sender: TObject);
....
>procedure Tform3.bitBtn1Click(Sender: TObject);
То есть два раза пытаемся описать один метод.

---

Наверх