小弟对指针的操作很茫然!!
解决方案 »
- 新人问个delphi中 关于Tinifile的问题。
- DbIMAGE控件是不透明的,在数据库中没图片时就是一个灰色的框框!怎么让他透明,省点没图片时成了灰色的框影响美观!
- 大侠帮忙啊,如何在Delphi程序里加载、显示网页?
- 使用ListView显示图片的效果问题!
- 山西省的老乡们进来聊聊吧:)
- 我想写一个过程,传入文件名,然后把文件用二进制方式读取传出,应该怎么做呢?
- ★散分★还是关于那个特殊的for循环!你们说的不对!!这是答案,看看吧!!★散分★
- 做好的软件,却出现了莫名奇妙的两个问题。很急很急!在线等待。愿高分求救!!!!!
- 怎么从一个memo里面取出内容显示到另一个memo中
- 请高人指路!DELPHI 能用来开发unix下的sybase数据库吗?ADO?BDE?100分!不食言!!
- string 类型变量跟着[ ]是什么意思?
- 问高手,如何快速得到某一字段所有值,并存入combobox中?
给你写了一个demounit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;type
PTest = ^Test;
Test = record
id:Integer;
end; TForm1 = class(TForm)
TreeView1: TTreeView;
procedure TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Node:TTreeNode;
p:PTest;
begin
Node:=self.TreeView1.GetNodeAt(x,y);
if Node = nil then exit;
if Node.Data = nil then exit;
p:=Node.Data;
showmessage(IntToStr(p^.id));
end;procedure TForm1.FormCreate(Sender: TObject);
var
p:PTest;
Node:TTreeNode;
begin
Node:=TreeView1.Items.AddChild(nil,'123');
new(p);
p^.id:=1;
Node.Data:=p;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
IntI:Integer;
begin
for IntI:=TreeView1.Items.Count-1 downto 0 do
begin
Dispose( self.TreeView1.Items[IntI].Data );
end;
end;end.