想实现的功能:
从LISTBOX控件拖一项放到STRINGGRID控件某一单元格,然后放开,则单元格的内容为LISTBOX的内容,
现在唯一有问题的就是不知道该具体用LISTBOX和STRINGGRID的哪个事件,谢谢了!问题解决,马上揭贴!HELP!HELP!HELP!HELP!HELP!HELP!HELP!HELP!HELP!HELP!HELP!VHELP!
从LISTBOX控件拖一项放到STRINGGRID控件某一单元格,然后放开,则单元格的内容为LISTBOX的内容,
现在唯一有问题的就是不知道该具体用LISTBOX和STRINGGRID的哪个事件,谢谢了!问题解决,马上揭贴!HELP!HELP!HELP!HELP!HELP!HELP!HELP!HELP!HELP!HELP!HELP!VHELP!
解决方案 »
- clientsocket 和 TCPclient问题
- 类型转换strtofloat(edit1.Text)出错了?
- 比较两个值为什么无效啊?
- 我用dbExpress连接到oracle数据库,TSQLDataSet打开表时必须要设置NoMetadata属性为True,否则报:无效的列名
- TcxDBComboBox控件中文输入问题
- 请问DELPHI程序员认证有用吗?
- 诚恳向大家、版主、好心人请教一个问题!!!
- 关于数据库中记录的时间与系统时间的比较
- 写了一个简单的Web Service程序,运行时出现500错误,为什么?
- 请问网上哪里有控件使用的详细手册可以下载?
- 如何测试指定的多个服务器ip地址响应时间最短并把响应时间最短的放在第一个位置。
- 如何在select语句的where条件中应用edit的输入?
//如下:
implementation{$R *.DFM}procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
Listbox1.DragMode := dmManual;
Listbox1.BeginDrag(False,-1);
end;
end;procedure TForm1.Label1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if (Sender is TLabel) and (Source is TListBox) then
begin
with Sender as Tlabel do
begin
Font := (Source as Tlistbox).Font;
Color := (Source as TlistBox).Color;
Caption := (Source as TlistBox).Items[(Source as TlistBox).ItemIndex]
end;
end;
end;procedure TForm1.Label1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := Source is TLIstBox;
end;
procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := Source is TLIstBox;
end;
procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
With (Sender as TTreeView) do
begin
GetNodeAt(X,Y).Text := (Source as TListBox).Items[(Source as TlistBox).ItemIndex];
end;
end;
procedure TForm1.TreeView1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
With (Sender as TTreeView) do
begin
ItemS.AddChild (GetNodeAt(X,Y),(Source as TListBox).Items[(Source as TlistBox).ItemIndex]);end;