delphi StringGrid
本人用了一个16行5列的StringGrid1控件，想在第一列上使用一个Button控件来做查询，想要达到的效果是在第一列上只使用一个Button控件，运行以后，拖动滚动条，用鼠标点击到第一列中的某一行时，则显示该Button控件,然后点击后弹出一个窗口是在数据库中某个表的数据，此时该列其余的行不显示Button控件，点击另一行时，在第一列另一行上显示Button控件，以此类推，多谢各位高手指教！
下面是画按钮的代码,条件是点击某行的第一列，按钮将会移动到所选行的第一列，具体条件自己可以修改
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;
相关问答：
我写了个小程序，上面添加了一个shockwaveflash控件，然后在movie里写入swf文件的路径，然后执行没有问题。
当我把这个程序转移到另一台电脑执行时， shockwaveflash 控件显示空白。也就是没有加载那个swf文件。 ......
请教各路高手。武林前辈。我将B.EXE做成资源文件，然后加到123.dll中。用A.EXE来调用123.dll中的B.EXE
请各位前辈帮忙指教下。A.exe如何来调用dll中的exe？代码又该如何写？
无人回答？
做成资源� ......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 个字节的长整形指针
begin
P:=PLongint(A);// 取的 A 的 ......
返回的内容是如下代码,怎么能渠道2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
最近换了家公司，郁闷的是关于Delphi的问题，公司之前用的也是D版Delphi7企业版的。后来被送了律事函以后，就强制改用Delphi7个人版，剧说这个版本是免费版，或者说很便宜，如果查出来，就买个好了。这下可好。苦了� ......
