Цель следующая, у нас имеется форма, в обработчике OnClose этой формы нужно написать код, проверяющий, были ли внесенный изменения в текст компонента Edit1. Если были, то сделать видимой вторую форму, если не были, то закрыть первую форму. Нашел решение, но при помощи переменной, оно не подходит в том случае, если у нас несколько Edit. вот то чего я добился:
var
Form1: TForm1;
k:integer;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Edit1Change(Sender: TObject);
begin
k:=1;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if k=1 then form2.ShowModal;
end;
end.