Скачать: CL | DM;

Form4:=Tform3.create(self);   Найти похожие ветки 

← →
ymin ©   (2002-04-23 09:16) [0]

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:26) [1]

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

---

← →
ymin ©   (2002-04-23 09:30) [2]

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

---

← →
Alx2 ©   (2002-04-23 09:37) [3]

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

---

← →
ymin ©   (2002-04-23 09:43) [4]

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

---

← →
Alx2 ©   (2002-04-23 09:51) [5]

Если не нужно виртуальности, то так, например:
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, которые можно будет переопределить.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.014 c