在onclick里写,此时selected便是点击的item
解决方案 »
- Delphi 开发的客户端连接服务器上的SQL SERVER 2008很慢
- 有关第三方控件的问题
- 我的odbc坏了,该怎么办?急!急!
- 如何判断调用外部打印程序已经运行完毕
- 请教:Delphi写的Dll中的窗体如何使用调用者Exe中的ADO数据连接呢,在线散分。
- 自定义文件格式,保存大文本的问题?
- 为什么我在数据模板里使用ado连接oracle,并在form2中的dbgrid里绑定,但运行时无数据,active己为true
- HLPE!!菜鸟求救!!请帮帮忙~~~~~~
- ADOTable控件连接数据库,使用DBGRID控件,当记录移动到最后一个,再向下移动就出错??
- 大家都推荐李维的书,我想知道李维写了那几本书?
- 谁知道reportBuilder6.03forD6的序列号
- 一个数据类型的转换问题?
var
CurrNode:TtreeNode;
begin
CurrNode:=treeview1.Selected;
end;
定義全局變量m,q,數組data
var
fTrainBBS: TfTrainBBS;
data: array of array of Int64;
p,m: Int64;
procedure TfTrainBBS.FormActivate(Sender: TObject);
var
TitleNode,DetailNode: TTreeNode;
begin
p:=p+1;
SetLength(data,p,2);
data[p-1,0]:=DM2.CDS_BBSTitle.FieldByName('bbs_id').AsInteger;
data[p-1,1]:=DM2.CDS_BBSTitle.FieldByName('bbs_fatherid').AsInteger; TitleNode := Items.AddChild(nil,DM2.CDS_BBSTitle.FieldByName('bbs_fatherid').AsString+DM2.CDS_BBSTitle.FieldByName('bbs_name').AsString+' ---- '+DM2.CDS_BBSTitle.FieldByName('sta_name').AsString+' [ '+DM2.CDS_BBSTitle.FieldByName('modtime').AsString+' ] ');
TitleNode.SelectedIndex:=p; //SelectedIndex保存第擊個節點end;
procedure TfTrainBBS.TVBBSDblClick(Sender: TObject);
var
TrainBBSView : TfTrainBBSView;
begin
m := TTreeView(Sender).Selected.SelectedIndex;
//用全局變量保存所選節點end;
快給我分吧!(開玩笑的)
定義全局變量m,q,數組data
var
fTrainBBS: TfTrainBBS;
data: array of array of Int64;
p,m: Int64;
procedure TfTrainBBS.FormActivate(Sender: TObject);
var
TitleNode,DetailNode: TTreeNode;
begin
p:=p+1;
SetLength(data,p,2);
data[p-1,0]:=DM2.CDS_BBSTitle.FieldByName('bbs_id').AsInteger;
data[p-1,1]:=DM2.CDS_BBSTitle.FieldByName('bbs_fatherid').AsInteger; TitleNode := Items.AddChild(nil,DM2.CDS_BBSTitle.FieldByName('bbs_fatherid').AsString+DM2.CDS_BBSTitle.FieldByName('bbs_name').AsString+' ---- '+DM2.CDS_BBSTitle.FieldByName('sta_name').AsString+' [ '+DM2.CDS_BBSTitle.FieldByName('modtime').AsString+' ] ');
TitleNode.SelectedIndex:=p; //SelectedIndex保存第擊個節點end;
procedure TfTrainBBS.TVBBSDblClick(Sender: TObject);
var
TrainBBSView : TfTrainBBSView;
begin
m := TTreeView(Sender).Selected.SelectedIndex;
//用全局變量保存所選節點end;
快給我分吧!(開玩笑的)
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
beginend;procedure TForm1.TreeView1Changing(Sender: TObject; Node: TTreeNode;
var AllowChange: Boolean);0D
beginend;—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”等';
I.Desire := '加不加分随你';
—————————————————————————————————
OnClick可以用键盘和菜单引发,而且执行结果和单击的结果一样。
而ONItemClick不可以,其它没有什么了。
type TLVItemClickEvent = procedure(Sender: TObject; Button: TMouseButton; Item: TListItem; Pt: TPoint; ColIndex: Integer) of object;property OnItemClick: TLVItemClickEvent;
procedure TfTrainBBS.TVBBSDblClick(Sender: TObject);
var
TrainBBSView : TfTrainBBSView;
begin
m := TTreeView(Sender).Selected.SelectedIndex;
//用全局變量m 保存所選節點end;