T
tsedlinux
Unregistered / Unconfirmed
GUEST, unregistred user!
我用API函数创建了一个列表框,怎么向里面添加数据?
hEditEmail:=Createlistbox(' sf',60,4,180,200);
function Createlistbox(namechar;x1,y1,x2,y2:integer):hwnd;
begin
result:=createwindowEx(WS_EX_CLIENTEDGE,'Edit',name,WS_VISIBLE or WS_CHILD or ES_LEFT or ES_AUTOHSCROLL,x1,y1,x2,y2,Handle,0,hInst,nil);
end;
我使用writecaption(heditemail,'sfsdf')方法只能加入唯一的一行数据。
还有,如何在没有FRM的程序中使用TSERVERSOCKET控件?谢谢
hEditEmail:=Createlistbox(' sf',60,4,180,200);
function Createlistbox(namechar;x1,y1,x2,y2:integer):hwnd;
begin
result:=createwindowEx(WS_EX_CLIENTEDGE,'Edit',name,WS_VISIBLE or WS_CHILD or ES_LEFT or ES_AUTOHSCROLL,x1,y1,x2,y2,Handle,0,hInst,nil);
end;
我使用writecaption(heditemail,'sfsdf')方法只能加入唯一的一行数据。
还有,如何在没有FRM的程序中使用TSERVERSOCKET控件?谢谢