通过另外一个应用程序给多个文本框赋值, 模拟单击事件
被调用的应用程序:
object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 360 ClientWidth = 486 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 168 Top = 155 Width = 40 Height = 13 Caption = #29992#25143#21517':' end object Label2: TLabel Left = 168 Top = 203 Width = 28 Height = 13 Caption = #23494#30721':' end object Label3: TLabel Left = 208 Top = 288 Width = 193 Height = 41 Caption = 'Label3' end object Edit1: TEdit Left = 224 Top = 152 Width = 121 Height = 21 ImeName = #20013#25991'('#31616#20307') - '#26497#28857#20116#31508 TabOrder = 0 end object Edit2: TEdit Left = 224 Top = 200 Width = 121 Height = 21 ImeName = #20013#25991'('#31616#20307') - '#26497#28857#20116#31508 TabOrder = 1 end object Button1: TButton Left = 270 Top = 248 Width = 75 Height = 25 Caption = #30331#38470 TabOrder = 2 OnClick = Button1Click endend