建議首先用spy++看看視窗的層次結構 然後……
var
handle, ehandle1, ehandle2: thandle;
begin
handle:=findwindow( '父視窗類' , '父視窗標題' );
ehandle1 := findwindowex(父視窗控制代碼, 0, 'edit ', nil); //第乙個edit的控制代碼
ehandle2 := getwindow(ehandle1 ,gw_hwndnext); //遍歷得到第二個edit的控制代碼
獲得多個edit裡面的內容然後提交到資料庫中:
unit unit1;
inte***ce
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs, extctrls, stdctrls, db, adodb;
type
tform1 = class(tform)
button1: tbutton;
edit1: tedit;
edit2: tedit;
edit3: tedit;
edit4: tedit;
edit5: tedit;
edit6: tedit;
edit7: tedit;
edit8: tedit;
edit9: tedit;
edit10: tedit;
edit11: tedit;
edit12: tedit;
button2: tbutton;
label1: tlabel;
label2: tlabel;
label3: tlabel;
label4: tlabel;
label5: tlabel;
label6: tlabel;
label7: tlabel;
label8: tlabel;
label9: tlabel;
label10: tlabel;
label11: tlabel;
label12: tlabel;
button3: tbutton;
groupbox1: tgroupbox;
label13: tlabel;
label14: tlabel;
label15: tlabel;
groupbox2: tgroupbox;
label16: tlabel;
label17: tlabel;
label18: tlabel;
label19: tlabel;
adoconnection1: tadoconnection;
adoquery1: tadoquery;
procedure button1click(sender: tobject);
procedure button3click(sender: tobject);
procedure button2click(sender: tobject);
private
public
end;
var
form1: tform1;
implementation
procedure tform1.button1click(sender: tobject);
var
s: string;
l: integer;
x12,x11,x10,x9,x8,x7,x6,x5,x4,x3,x2,x1,main,vhandle:thandle;
begin
vhandle := findwindow(nil, '證件照瀏覽 ');
if vhandle = 0 then
showmessage ( '目標視窗沒找到! ');
main := findwindowex(vhandle, 0, 'edit ',nil);
x1:=findwindowex(vhandle,main, 'edit ',nil) ;
x2:=findwindowex(vhandle,x1, 'edit ',nil) ;
x3:=findwindowex(vhandle,x2, 'edit ',nil) ;
x4:=findwindowex(vhandle,x3, 'edit ',nil) ;
x5:=findwindowex(vhandle,x4, 'edit ',nil) ;
x6:=findwindowex(vhandle,x5, 'edit ',nil) ;
x7:=findwindowex(vhandle,x6, 'edit ',nil) ;
x8:=findwindowex(vhandle,x7, 'edit ',nil) ;
x9:=findwindowex(vhandle,x8, 'edit ',nil) ;
x10:=findwindowex(vhandle,x9, 'edit ',nil) ;
x11:=findwindowex(vhandle,x10, 'edit ',nil) ;
x12:=findwindowex(vhandle,x11, 'edit ',nil) ;
編輯控制項 edit
編輯框 edit 控制項實際上是乙個簡易的文字編輯器,使用者可以在編輯框中輸入可新增或插入文字。還有複製 貼上 剪下 刪除等編輯功能。應用程式用createwindowex建立編輯框控制項時,可根據控制項的用途在下表中選擇部份常數來設定其風格屬性 style 常數說明 es multiline 多行...
Win32控制項使用 Edit控制項
drecik學習經驗分享 edit控制項是乙個很強大的輸入控制項,可以處理很多樣式,通過vs的控制項屬性來設定,有單行,多行,密碼框,滾動條等。其中通知碼可以如下所示 獲得edit控制項輸入的內容可以通過之前討論過的通用函式 參考前面的博文 getwindowtext等。剪下,複製,刪除當前選擇內容...
VC中edit控制項使用
setsel start,end 作用 定製edit的所選擇內容.間接地可以用於定位游標位置.使用例子 exp1 設定游標 cedit pedit cedit getdlgitem idc edit1 pedit setsel 2,2 pedit setfocus exp2 選擇內容 cedit p...