Форум: "Основная";
Текущий архив: 2002.05.06;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Основная";
Текущий архив: 2002.05.06;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.004 c