4.15.3 AddHeader

AddHeader procedure

Prototype:	procedure AddHeader(const Caption_ :string);
Description:	Adds a bar with a caption into the value dialog
Syntax:	vDlg.AddHeader('caption');
	Part	Description
	vDlg	A reference to an instance of a TValueDialogWrapper
	Caption	variable declared as string representing the header caption

See also:

Create, Free, AddHeader, AddInteger, AddFloeat, AddString, AddLookuplist, AddDate, InputValues, Value, ValueByLabel

Example:

var 
  vdlg :TValueDialogWrapper;
  lkpSpecies,lkpDeadTree:TTableWrapper;
  choice : variant; 
begin
  lkpSpecies:=Trees.GetLookupTable('Species');
  lkpDeadTree:=Trees.GetLookupTable('DeadTree');
  
  vdlg:=TValueDialogWrapper.Create;
  try
    vdlg.AddLookupList('Species',lkpSpecies,'ID','Value1',null);
    vdlg.AddLookupList('Dead tree',lkpDeadTree,'ID','Value1',null);
    if vdlg.InputValues('Select values') then begin
      // do something
      ShowMessage(format('Selected species value: %s',[vdlg.ValueByLabel('Species')]));
      ShowMessage(format('Selected dead tree value: %s',[vdlg.Value[1]]));
    end;
   finally
     vdlg.Free;
     lkpDeadTree.Free;
     lkpSpecies.Free;
   end;
end.