
(*
 Delphi Object and Component Reference
#{bmc bm9.BMP} GetShortHint example
This code assigns a two-part string as to the Hint property of an edit box and then displays the "short" or first part of the string as the text of the edit box:
*) 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Edit1->Hint = "Name|Enter full name";
  Edit1->Text = GetShortHint(Edit1->Hint);
} 
