How can I access a dedicated caption of TsiLang component?
Caption property is type of TStrings and I need one dedicated String out of the Caption property.
For example I want to change the caption of the TForm in depend of record selection like "Contract 2007/003493" and the original caption is "Contract".
Thanks
Thomas
Access to a dedicated Caption of TsiLang
Code: Select all
procedure ReplaceStringValue(const AStrings: TStrings; Value, AName: Tstring; ALang: Integer);
Best regards,
Igor Siticov.
Igor Siticov.
No I think you dind't understand me correct.
The origin caption is "Contract" for the form and if no dataset is show in the form is this caption "Contract" correct.
Now the user create a contract and the system generate a no. like 2007-11-11-1 so the caption has to change to "Contract 2007-11-11-1"
If the user creates a second contract the caption has to be "Contract" + " " + no --> e.g. "Contract 2007-11-11-2"
But for this I have to get the original caption wich is "Contract"
right now I store the caption in the OnCreate event in a member variable and use it if the user select or create a new record.
The origin caption is "Contract" for the form and if no dataset is show in the form is this caption "Contract" correct.
Now the user create a contract and the system generate a no. like 2007-11-11-1 so the caption has to change to "Contract 2007-11-11-1"
If the user creates a second contract the caption has to be "Contract" + " " + no --> e.g. "Contract 2007-11-11-2"
But for this I have to get the original caption wich is "Contract"
right now I store the caption in the OnCreate event in a member variable and use it if the user select or create a new record.
Code: Select all
GetStringValue(const AStrings: TStrings; AName: string; ALang: nteger): string;
Best regards,
Igor Siticov.
Igor Siticov.