delphi StringGrid
±¾ÈËÓÃÁËÒ»¸ö16ÐÐ5ÁеÄStringGrid1¿Ø¼þ£¬ÏëÔÚµÚÒ»ÁÐÉÏʹÓÃÒ»¸öButton¿Ø¼þÀ´×ö²éѯ£¬ÏëÒª´ïµ½µÄЧ¹ûÊÇÔÚµÚÒ»ÁÐÉÏֻʹÓÃÒ»¸öButton¿Ø¼þ£¬ÔËÐÐÒÔºó£¬Í϶¯¹ö¶¯Ìõ£¬ÓÃÊó±êµã»÷µ½µÚÒ»ÁÐÖеÄijһÐÐʱ£¬ÔòÏÔʾ¸ÃButton¿Ø¼þ,È»ºóµã»÷ºóµ¯³öÒ»¸ö´°¿ÚÊÇÔÚÊý¾Ý¿âÖÐij¸ö±íµÄÊý¾Ý£¬´Ëʱ¸ÃÁÐÆäÓàµÄÐв»ÏÔʾButton¿Ø¼þ£¬µã»÷ÁíÒ»ÐÐʱ£¬ÔÚµÚÒ»ÁÐÁíÒ»ÐÐÉÏÏÔʾButton¿Ø¼þ£¬ÒÔ´ËÀàÍÆ£¬¶àл¸÷λ¸ßÊÖÖ¸½Ì£¡
ÏÂÃæÊÇ»°´Å¥µÄ´úÂë,Ìõ¼þÊǵã»÷ijÐеĵÚÒ»ÁУ¬°´Å¥½«»áÒÆ¶¯µ½ËùÑ¡ÐеĵÚÒ»ÁУ¬¾ßÌåÌõ¼þ×Ô¼º¿ÉÒÔÐÞ¸Ä
Delphi(Pascal) code:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (FRow = ARow) and (ACol = 1) then
Button1.SetBounds(StringGrid1.left+Rect.Left,StringGrid1.Top+rect.Top,Rect.Right - Rect.Left,Rect.Bottom-rect.Top);
end;
¼ÓÈë´úÂëºó²»Í£µÄÏÔ...
¸ßÊÖ°ïæ¿´¿´:
unit Unit12;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, Grids, DBGrids, DB, ADODB;
type
TMat_lib = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet3: TTabSheet;
Panel2: TPanel;
add_Button: TButton;
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÄ£¿éÀï×Ô¶¨ÒåÁËÒ»¸öº¯Êý:stradd()
¿ÉÊÇÔÚadoquery1.sql.add('select stradd(author) from book');
ʱÌáʾstradd䶨Òå...
Õâ¸öÎÊÌâÓÐʲô°ì·¨¿ÉÒÔ½â¾öµÄÂð? ·Ç³£¸Ð¼¤!
(ÔÚA ......
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä
var
......
Òª°üº¬winsock2 ¶øÇÒÏêϸЩµÄ¡£
ÄÇЩʹÓÿؼþµÄµÄÊé±¾¾Í²»ÒªÁË£¬
Ï£ÍûÂò¹ýÕâÀàÊéµÄÅóÓÑÄÜÍÆ¼öÏÂ×Ô¼º¾õµÃ²»´íµÄ¡£
À´¹Ø×¢Ï¡£
WindowsÍøÂçÓëͨÐųÌÐòÉè¼Æ(µÚ2°æ)
À¶Æ¤µÄÊÇаæ,ËäÈ»ÊÇÖйúÈËдµÄµ«ÊǷdz ......