12 / 2 页

楼主: 小菜菜同学

我的bcb怎么在函数外声明的变量，在函数内无法存储

[复制链接]

字体大小: 正常放大

ilikenba

1万主题	49 听众	2万积分

TA的每日心情

	奋斗 2024-6-23 05:14

签到天数: 1043 天

[LV.10]以坛为家III

群组: 万里江山

群组: sas讨论小组

群组: 长盛证券理财有限公司

群组: C 语言讨论组

群组: Matlab讨论组

11^#

发表于 2005-4-29 14:48 |只看该作者

|招呼Ta 关注Ta

你不如把这些变量放到一个类的成员里面！

我也说一句

发表

使用道具举报

小菜菜同学

22 主题	2 听众	72 积分

升级 70.53%

该用户从未签到

12^#

发表于 2005-4-29 15:24 |只看该作者 |招呼Ta 关注Ta

<

>1、1、1、1、
//---------------------------------------------------------------------------<

>#include <vcl.h>
#pragma hdrstop<

>#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
 : TForm(Owner)
{
}
//---------------------------------------------------------------------------
class cla{
public:
int ox,oy;
};
cla *a=new cla;
int x,y;
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
 TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(Button=mbLeft){
a->ox=Image1->Left;
a->oy=Image1->Top;
x=X;
y=Y;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
 int X, int Y)
{
if(Shift.Contains(ssLeft)){
Image1->Left+=X-x;
Image1->Top+=Y-y;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
 TShiftState Shift, int X, int Y)
{
if(Image1->Left>Shape1->Left-20 &&
Image1->Left<Shape1->Left+Shape1->Width+
20&&Image1->Top>Shape1->Top-20&&
Image1->Top<Shape1->Top+20+Shape1->Top){
Image1->Top=Shape1->Top;
Shape1->Visible=false;
Image1->Left=Shape1->Left;
}else{
Image1->Left=a->ox;
Image1->Top=a->oy;
}
}<

>2、2、2、2、2、2、2、2、2、、2、2、2、2、2、、2、2、2、2、2、2、2、2、2//---------------------------------------------------------------------------<

>#include <vcl.h>
#pragma hdrstop<

>#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
 : TForm(Owner)
{
}
//---------------------------------------------------------------------------
class cla{
public:
int ox,oy;
int get_x(){return ox;}
int get_y(){return oy;}
};
cla *a=new cla;
int x,y;
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
 TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(Button=mbLeft){
a->ox=Image1->Left;
a->oy=Image1->Top;
x=X;
y=Y;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
 int X, int Y)
{
if(Shift.Contains(ssLeft)){
Image1->Left+=X-x;
Image1->Top+=Y-y;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
 TShiftState Shift, int X, int Y)
{
int x1,y1;
if(Image1->Left>Shape1->Left-20 &&
Image1->Left<Shape1->Left+Shape1->Width+
20&&Image1->Top>Shape1->Top-20&&
Image1->Top<Shape1->Top+20+Shape1->Top){
Image1->Top=Shape1->Top;
Shape1->Visible=false;
Image1->Left=Shape1->Left;
}else{
x1=a->get_x();
y1=a->get_y();
Image1->Left=x1;
Image1->Top=y1;
}
}

我也说一句

发表

使用道具举报

小菜菜同学

22 主题	2 听众	72 积分

升级 70.53%

该用户从未签到

13^#

发表于 2005-4-29 15:27 |只看该作者 |招呼Ta 关注Ta

<

>以上两种都不行，<

>我在没有mousemove\down\up时<

>全局变量好使

我也说一句

发表

使用道具举报

小菜菜同学

22 主题	2 听众	72 积分

升级 70.53%

该用户从未签到

14^#

发表于 2005-4-29 15:28 |只看该作者 |招呼Ta 关注Ta

<

>总提示[C++ Warning] Unit1.cpp(28): W8060 Possibly incorrect assignment<

>定位在 if(Button=mbLeft){

我也说一句

发表

使用道具举报

小菜菜同学

22 主题	2 听众	72 积分

升级 70.53%

该用户从未签到

15^#

发表于 2005-4-29 15:35 |只看该作者 |招呼Ta 关注Ta

<

>简化成这样：还是都等于零，我要吐了[em06]<

>int ox,oy;
int x,y;
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(Button=mbLeft){
ox=Image1->Left;
oy=Image1->Top;
x=X;
y=Y;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
int x1,y1;<

>x1=ox;
y1=oy;
ShowMessage("ox="+IntToStr(x1) +"oy="+IntToStr(y1) );
}

我也说一句

发表

使用道具举报

小菜菜同学

22 主题	2 听众	72 积分

升级 70.53%

该用户从未签到

16^#

发表于 2005-4-29 15:42 |只看该作者 |招呼Ta 关注Ta

<

>重大发现：以下不是0。而加上if(Button=mbLeft){就为零了。病根找到了，但怎么回事呢？<

>int ox,oy;
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
ox=Image1->Left;
oy=Image1->Top;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
ShowMessage("ox="+IntToStr(ox) +"oy="+IntToStr(oy) );
}

我也说一句

发表

使用道具举报

小菜菜同学

22 主题	2 听众	72 积分

升级 70.53%

该用户从未签到

17^#

发表于 2005-4-29 15:54 |只看该作者 |招呼Ta 关注Ta

<

>对，去掉mousedown中的if(Button=mbLeft){}就实现了拖动图片到图形中的功能了。<

>总算喘口气。但if(Button=mbLeft){}没什么毛病呀？<

>刚写到这，一看书，我恨不得打我自己一巴掌！<

>应该是if(Button==mbLeft){}。<

>[em06][em06]<

>这种错误BCB6怎么不拦住我呀！？<

>让各位见笑了[em04][em04]

我也说一句

发表

使用道具举报

ilikenba

1万主题	49 听众	2万积分

TA的每日心情

	奋斗 2024-6-23 05:14

签到天数: 1043 天

[LV.10]以坛为家III

群组: 万里江山

群组: sas讨论小组

群组: 长盛证券理财有限公司

群组: C 语言讨论组

群组: Matlab讨论组

18^#

发表于 2005-4-29 16:02 |只看该作者 |招呼Ta 关注Ta

<

>晕！判断是否相等要用两个等号！<

>呵呵！我回答的晚了！BCB的编译器的错误检查不严，你可以通过设置加强！

我也说一句

发表

使用道具举报

小菜菜同学

22 主题	2 听众	72 积分

升级 70.53%

该用户从未签到

19^#

发表于 2005-4-29 16:09 |只看该作者 |招呼Ta 关注Ta

<

>不过，几乎废了3、4个小时，还算有点收获。写出来大家是新手的共勉。就是知道：<

>1、怎么一步一步找错误了<

>2、知道了怎么恢复默认设置——谢谢<

><TABLE cellSpacing=0 cellPadding=4 width="100%"><TR><TD glow(color=#9898BA,strength=2)" vAlign=center width=*>ilikenba </TD><TD vAlign=center width=25></TD><TD vAlign=center width=16></TD></TR></TABLE><

>
少校的指导<

>3、熟悉了全局变量的用法<

>4、让我花1个小时想想4是什么，还有5.... （3、4个小时可不能白费呀......4是什么呢？伤脑筋呀）

我也说一句

发表

使用道具举报

12 / 2 页

返回列表

帐号		密码		只需要一步，快速开始		注册地址	找回密码

我的bcb怎么在函数外声明的变量，在函数内无法存储

浏览过的版块

社区QQ达人

新人进步奖

优秀斑竹奖

发帖功臣

QQ

电话咨询

关于我们| 联系我们| 诚征英才| 对外合作| 产品服务|