Question

DBGrid相同数据图片[最好用Delphi回答]

本人是DELPHI爱好者,最近在网上遇到美萍家族一软件,地址为:http://www.mpsoft.net/mpxy.htm
爱好DELPHI的朋友可以看一下,软件界面很好.
现有一问题如下:
在系统主界面的窗体中,的图标显示问题,其中大图标显示我已经基本搞定:原理就是用的LISTVIEW控件,但是:在其列表显示的时候,我就不知道选择的是什么控件了,哪位高手可以告诉我此软件列表显示是使用了哪些控件,我用DXDBGRID没有实现.
请高手帮忙,最好提供一下源代码
这个界面的功能如下解释:当顾客开单后,图表自动显示为红色,结帐之后又恢复显示为绿色
http://www.mpsoft.net/mpxy.htm
拜托了各位!
现附上LISTVIEW控件实现的代码:希望喜欢DELPHI的朋友能够有点帮助,代码如下:
...
type
TForm1 = class(TForm)
ListView1: TListView;
ImageList1: TImageList;
ADODataSet1: TADODataSet;
Edit1: TEdit;
Edit2: TEdit;
procedure ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
...
procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
if Source=ListView1 then Accept:=True else
Accept:=False;
end;

procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if ListView1.Selected <> nil then
Edit1.Text := ListView1.Selected.Caption;
Edit2.Text := ListView1.DropTarget.Caption
end;

end.

另附问题:http://zhidao.baidu.com/question/4499165.html#

Answer 1

type
TForm1 = class(TForm)
ListView1: TListView;
ImageList1: TImageList;
ADODataSet1: TADODataSet;
Edit1: TEdit;
Edit2: TEdit;
procedure ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
procedure ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
...
procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
if Source=ListView1 then Accept:=True else
Accept:=False;
end;

procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if ListView1.Selected <> nil then
Edit1.Text := ListView1.Selected.Caption;
Edit2.Text := ListView1.DropTarget.Caption
end;

end.

另附问题:http://zhidao.baidu.com/question/4499165.html#

Answer 2

+群21590636

Answer 3

加我QQ271281186 让我来详细告诉你

Answer 4

+群21590636