delphiÖÐÔõÑùʵÏÖ µã»÷dbgridµÄÒ»ÐиıäÕâÐеÄÑÕÉ«
ÎÒÏëʵÏÖÕâÑùµÄЧ¹û£¬ÓÃÊó±êµ¥»÷dbgridÒ»ÐУ¬Ñ¡ÔñÒ»Ìõ£¬ÑÕÉ«±äΪÀºÉ«£¬ÔÚÑ¡ÔñÒ»ÌõÕâÌõ±äΪÀºÉ«£¬ÉÏÃæÑ¡µÄÒ²»¹ÊÇÀºÉ«...
ÎÒÏëʵÏÖÕâÑùµÄЧ¹û£¬ÓÃÊó±êµ¥»÷dbgridÒ»ÐУ¬Ñ¡ÔñÒ»Ìõ£¬ÑÕÉ«±äΪÀºÉ«£¬ÔÚÑ¡ÔñÒ»ÌõÕâÌõ±äΪÀºÉ«£¬ÉÏÃæÑ¡µÄÒ²»¹ÊÇÀ¶É«...
ÕâʱdbgridÉÏÓ¦¸ÃÓÐ2ÌõÊÇÀ¶É«µÄ
¶¨ÒåÒ»¸öÊý×é(´æÐкÅ),ÔÚstringgridµÄonselectcellʼþÀïÃæ,¶ÁÈ¡AROW´æµ½Êý×éÀï.
È»ºóÔÚDrawColumnCellʼþÀï×ö¸öÑ»·¶ÁÈ¡Êý×é»À¶É«¾ÍÐÐÁË
Èç¹û½ö½ö2Ðеϰ£¬¶ÔÓ¦×é¼þOptionsÊôÐÔÀïÃæÉèÖþͿÉÒÔÂú×ãÄãµØÐèÇóÁË£¬¼ÙÈçÒªËùÓеã»÷µÄÐж¼Ñ¡Öеϰ£¬¾ÍÒªÖØ»ÁË¡£
ÎÒÐèÒªÔÚdbgridÀïÃæÊµÏÖ
¿ÉÒÔÌù³öÏà¹Ø´úÂëô£¿
лл...
Delphi(Pascal) code:
//....
var
Form1: TForm1;
RowSel: Array of String;
//....
procedure TForm1.FormCreate(Sender: TObject);
begin
setlength(RowSel,0);
end;
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
SetLength(RowSel,length(RowSel)+1);
RowSel[high(RowSel)]:= ADOQuery1.FieldByName('±íÀïΨһµÄÁÐ').AsString; //¼´Öµ²»»áÖØ¸´
end;
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
i: integer;
b
Ïà¹ØÎÊ´ð£º
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä
var
......
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
VC++ ÖУ¬ &±äÁ¿Ãû¡£ ÊÇʲôÒâ˼¡£ DelphiÖÐ ºÍËûÒ»ÑùµÄ·ûºÅ ÊÇÄĸö¡¢£¿
´ó¼Ò¶¼ÈÏΪ£¬CÓïÑÔÖ®ËùÒÔÇ¿´ó£¬ÒÔ¼°Æä×ÔÓÉÐÔ£¬ºÜ´ó²¿·ÖÌåÏÖÔÚÆäÁé»îµÄÖ¸ÕëÔËÓÃÉÏ¡£Òò´Ë£¬ËµÖ¸ÕëÊÇCÓïÑÔµÄÁé»ê£¬Ò»µã¶¼²»Îª¹ý¡£Í¬Ê±£¬ ......
Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿
sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£
È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾
ѧϰѧϰ¡£
ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ×´ ......
¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......