山寨机中的战斗机！	程序优化工程师到底对IT界有没有贡献

再用100分来问mxoutlookbarpro的问题,解决了再送200分都行,只是现在1个问题里最多只能给100分,上次问的也没有人答案。

楼主mastersky（浪）2004-12-03 10:50:26 在 Delphi / VCL组件开发及应用提问

看图吧，清楚点。
http://bbs.t2dk.com/forum/attachments/day_041203/mxoutlookpro_bbXh.jpg 问题点数：100、回复次数：14Top

1 楼mastersky（浪）回复于 2004-12-03 11:07:53 得分 0

帮帮忙啊，兄弟们。Top

2 楼mastersky（浪）回复于 2004-12-03 13:57:34 得分 0

帮帮忙啊，兄弟们。
Top

3 楼firefox2000（网际流浪者）回复于 2004-12-03 14:53:45 得分 20

自己修改控件咯,没看出来是什么控件Top

4 楼mastersky（浪）回复于 2004-12-03 16:07:56 得分 0

To: firefox2000(网际流浪者)
是mxoutlookbarpro,要是我会修改它就不会在这里问了啊.Top

5 楼usherlight（xingtian）回复于 2004-12-03 16:55:33 得分 20

没有源码，怎么给你改呢？Top

6 楼mastersky（浪）回复于 2004-12-03 17:13:36 得分 0

http://bbs.t2dk.com/forum/attachment.php?aid=65967

到这里下载吧Top

7 楼mastersky（浪）回复于 2004-12-03 21:16:45 得分 0

upTop

8 楼mastersky（浪）回复于 2004-12-09 19:08:00 得分 0

再UP一次
Top

9 楼older（井底蛙同样可以向往大海）回复于 2004-12-09 23:02:13 得分 20

其实也没有太大关系，有时候，程序不能太注重细节，每个人有每个人的看法，对用户来说，最重要的，首先或许是功能是否好用，是否稳定，而不会太在意细小的某个环节。

这只是我的愚见，望不引起楼主生气为好。
-------------------------------------
Top

10 楼smiler007（笑一笑）回复于 2004-12-09 23:05:18 得分 20

mxOutLookBarPro自带有例子的，看着学吧Top

11 楼mastersky（浪）回复于 2004-12-09 23:05:31 得分 0

老板说这个要改，我还没找到合适的控件，也没有时间研究这些细微末节的问题，流程上的问题还没搞完呢。所以来这里求救了。Top

12 楼mastersky（浪）回复于 2004-12-09 23:05:56 得分 0

smiler007(笑一笑) ( ) 信誉：100 2004-12-09 23:05:00 得分: 0

mxOutLookBarPro自带有例子的，看着学吧

例子里也是这样的。Top

13 楼Blakhawk（黑鹰）回复于 2005-02-22 16:18:16 得分 20

借宝地一用:

如果对TmxButton的Data定义一个数据指针,且按钮是动态生成的.
怎样才能取得该指针对应的数据呢,我的代码如下:

//数据结构定义如下:
type
TFData=^FData;
FData=Record
UID:string;
UNAME:string;
IMGINDEX:Integer;
STATUSINDEX:integer;
UIP:string;
end;

//以下是动态产生mxButton,并给Data赋值:

for i:=0 to ClientDataSet.RecordCount-1 do
begin
mxBtm:=mxOutlookBar.Headers[0].AddButton;
mxBtm.Caption:= Trim(ClientDataSet.FieldByName('uName').Asstring);
mxBtm.Name:='mxBtm'+inttostr(mxOutlookBar.Headers[0].ButtonCount+1);
New(FData);

FData.UID:=Trim(ClientDataSet.FieldByName('UID').Asstring);
FData.UNAME:=Trim(ClientDataSet.FieldByName('uName').Asstring);
FData.IMGINDEX:=ClientDataSet.FieldByName('IMGINDEX').Value;
FData.STATUSINDEX:=ClientDataSet.FieldByName('STATUSINDEX').Value;
FData.UIP:=Trim(ClientDataSet.FieldByName('LOCALIP').Asstring);

mxBtm.Data:=FData;
mxBtm.OnClick:= mxBtnDBClick;
ClientDataSet.Next;
end;

//以下是自定义点击事件,用来取得Data的数据:

procedure TChatFrm.mxBtnDBClick(Sender:TObject);
var
xData:TFData;
mxBtm:TmxButton;
begin
if Sender is TmxButton
then begin
mxBtm:= TmxButton(Sender).Data;
//showmessage(mxBtm.Caption);
MsgEditFrm:= TMsgEditFrm.Create(Application);
with MsgEditFrm do
begin
//初始化参数
xData:= TFData(mxBtm.Data);
uID.Caption:= xData^.UNAME+' '+xData^.UID;//报错
IpLabel.Caption:='对方IP: '+xData^.UIP;//报错
ShowModal;
end;
end;
end;

请大家帮忙.Top

14 楼Blakhawk（黑鹰）回复于 2005-02-22 16:27:58 得分 0

不用大家帮忙了，我搞定了，自己写错了一个语句。
大家可以看看错在哪里.Top