Exemplo n.º 1
0
//---------------------------------------------------------------------------
void __fastcall TLinkDetailForm::FormClose(TObject *Sender,
	  TCloseAction &Action)
{
	if(ModalResult == mrOk)
	{
		EditLinkAttribFrame->CheckUncommitted();
		EditLinkAttribFrame->SetLinkInfo(FLink);
		UpdateMainWindowParams(true);
	}
	else
	{
		FLink = FLinkOriginal;
		UpdateMainWindowParams(false);
	}

	// write information to ini file
	WriteWindowBasicInformationToIniFile("LinkDetail", this);
}
Exemplo n.º 2
0
void __fastcall TLabelDetailForm::FormClose(TObject *Sender,
	  TCloseAction &Action)
{
	// write information to ini file
	WriteWindowBasicInformationToIniFile("LabelDetail", this);
}