This functionality is supported only if you are using the Classic Agent. For additional information, refer to the Silk Test Classic Classic Agent Help.
While there is no support for Delphi controls "out of the box", virtually all of the Delphi objects can be class mapped to standard controls.
The following code sample shows the class mapping for the Classic Agent classes:
[ClassMap] DialogBox,0x50000044,0x50000044=Ignore TBitBtn=PushButton TButton=PushButton TCheckBox=CheckBox TComboBox=ComboBox TDBCheckBox=CheckBox TDBComboBox=ComboBox TDBEdit=TextField TDBListBox=ListBox TDBLookupComboBox=ComboBox TDBLookupListBox=ListBox TDBMemo=TextField TDBRadioGroup=Ignore TEdit=TextField TFlyingPanel=Toolbar TGroupBox=StaticText TGroupButton=RadioButton TListBox=ListBox TListView=ListView TMaskEdit=TextField TMemo=TextField TPageControl=PageList TPanel=Ignore TRadioButton=RadioButton TRadioGroup=Ignore TRichEdit=TextField TRicherEdit=TextField TScrollBar=ScrollBar TStatusBar=StatusBar TTabControl=PageList TTreeView=TreeView TUpDown=UpDown
Silk Test Classic can work with Delphi objects in a variety of ways. The amount of functionality you achieve depends on how deep you want to get involved. You can even create an extension (external) for Delphi objects. Delphi supports DLL calling, and you can use DLL's created in C/C++ in your Delphi application. Class mapping will work in many instances, but not with every object.
If class mapping doesn't work, you can try any of the following workarounds:
Using SendMessage with the Clipboard.
procedure QAP_GetValue (var Msg: TMessageRecord); var ValueToReturn : string; begin CopyToClipBoard; Msg.Result := true; end;
winclass DelphObj : Control LIST OF STRING GetContents () if (SendMessage (this.hWnd, QAP_GetListContents, NULL, NULL)) return Clipboard.GetText () else RaiseError (1, "Couldn't get the contents of {this}, SendMessageEvent not processed correctly")
To test Delphi applications with the Open Agent you could use the custom control support. For additional information, see Custom Controls (Open Agent).