![]() |
![]() ![]() |
IESnifferAutoFillUserInfo component.
|
procedure Save;
|
The Save method saves the values of Fields structure to the registry (or INI-file), to the registry keys specified in RegistrySaver structure.
|
procedure TAutoFillFrm.ButtonsPanel1ApplySettings(Sender: TObject);
|
begin
|
with IESnifferAutoFillUserInfo1, Fields do
|
begin
|
FullName := EName.Text;
|
Email := EEMail.Text;
|
Company := ECompany.Text;
|
JobTitle := EJobTitle.Text;
|
Phone := EPhone.Text;
|
Fax := EFax.Text;
|
|
AddressLine1 := ELine1.Text;
|
AddressLine2 := ELine2.Text;
|
City := ECity.Text;
|
State := EState.Text;
|
ZIPCode := EZIP.Text;
|
Country := ECountry.Text;
|
|
Save;
|
end;
|
end;
|
Fields and RegistrySaver structures;
|
IESniffer component.
|