1 Topic by sibprogsistem (edited by sibprogsistem 2018-12-21 15:24:14)

  • From: Нефтеюганск
  • Registered: 2018-04-11
  • Posts: 1,775

Topic: Имя формы

помещаю в переменную имя формы если сделать frmS.show - форма открывается, а если frmS.eDolg.text- то ошибка

var
frmS: TForm;

procedure frmAppl_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
  frmS:=frmAppl;
end;

procedure frmAppl_button2_OnClick (Sender: TObject; var Cancel: boolean);
begin
frmS.eDolg.text
end;
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Имя формы

В данном случае компонент на форме необходимо найти с помощью метода FindComponent, также используйте для формы класс TAForm вместо TForm


Пример

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
    f: TAForm;
begin
    f := Form2;
    TdbEdit(f.FindComponent('Edit1')).Text := '';
end;
Dmitry.