讀取多個edit控制項控制代碼

2021-06-05 11:23:33 字數 2951 閱讀 2669

建議首先用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...