Не могу понять как можно реализовать?
По клику на кнопку открывается программно созданная форма F1, на ней несколько программно созданных кнопок(B1,B2,B3).ъ
При щелчке на кнопку B1 создается программно форма F2 на ней тоже одна кнопка B4.
как присвоить этой(последней) кнопке событие, в котором будет закрываться форма F2. Проблема у меня в том, как мне кажется, что событие не видит программно созданную последнюю форму. Может я совсем не так реализую задачу
Код:
type BitButtonClass = class
class procedure BitClick(Sender : TObject);
end;
//.......
procedure TForm1.BitBtn1Click(Sender: TObject);
var Forma : TForm;
BitButton1 : TBitBtn;
BitButton2 : TBitBtn;
BitButton3 : TBitBtn;
begin
//
Forma := TForm.Create(Self);
With Forma do
begin
Left := 100;
Top := 100;
Height := 300; // Высота формы
Width := 300; // Ширина формы
BorderStyle := bsDialog;
end;
BitButton1 := TBitBtn.Create(Forma);
With BitButton1 do
begin
Parent := Forma;
Left := 20;
Top := 235;
Height := 25; // Высота
Width := 75; // Ширина
Caption :='Добавить';
Name := 'BitButton1';
Visible := true;
OnClick := BitButtonClass.BitClick;
end;
BitButton2 := TBitBtn.Create(Forma);
With BitButton2 do
begin
Parent := Forma;
Left := 110;
Top := 235;
Height := 25; // Высота
Width := 75; // Ширина
Caption :='Изменить';
Name := 'BitButton2';
Visible := true;
OnClick := BitButtonClass.BitClick;
end;
BitButton3 := TBitBtn.Create(Forma);
With BitButton3 do
begin
Parent := Forma;
Left := 200;
Top := 235;
Height := 25; // Высота
Width := 75; // Ширина
Caption :='Удалить';
Name := 'BitButton3';
Visible := true;
OnClick := BitButtonClass.BitClick;
end;
Forma.ShowModal;
Forma.Free;
end;
class procedure BitButtonClass.BitClick(Sender: TObject);
var F: TForm;
BitButton4: TBitBtn;
begin
if TBitBtn(Sender).Name = 'BitButton1' then
begin
//
F := TForm.Create(nil);
With F do
begin
Left := 100;
Top := 100;
Height := 300; // Высота формы
Width := 300; // Ширина формы
BorderStyle := bsDialog;
end;
BitButton4 := TBitBtn.Create(F);
With BitButton4 do
begin
Parent := F;
Left := 20;
Top := 135;
Height := 25; // Высота
Width := 75; // Ширина
Caption :='Добавить';
Name := 'BitButton4';
Visible := true;
OnClick := BitButtonClass.BitClick;
end;
F.ShowModal;
exit;
//
end;
if (Sender as TBitBtn).Name = 'BitButton2' then
begin
ShowMessage('2');
end;
//
if (Sender as TBitBtn).Name = 'BitButton4' then
begin
F.Close;
ShowMessage('4');
exit;
end;
ShowMessage(TBitBtn(Sender).Name);
end;
То есть я пытаюсь в обработчике события создать новую форму с кнопкой и обработать её событие программно, чтоб закрыть форму.
Код:
if (Sender as TBitBtn).Name = 'BitButton4' then
begin
F.Close;
ShowMessage('4');
exit;
end;
Пожалуйста подскажите.