vc中添加控件时显示不能二十案例示轮回是怎么回事啊，急需解决，求指导

来源：蜘蛛抓取(WebSpider) 时间：2014-12-25 21:24 标签： vc进度条控件
(每月一看)
随笔分类(1108)
随笔档案(1099)
文章档案(1)
DataStruct
积分与排名
阅读排行榜
评论排行榜急求：“Active X控件不能例示”怎么回事？怎么办？
[问题点数：100分，无满意结帖，结帖人wshcdr]
急求：“Active X控件不能例示”怎么回事？怎么办？
[问题点数：100分，无满意结帖，结帖人wshcdr]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
相关帖子推荐：
2007年6月 总版技术专家分月排行榜第一
2007年5月 总版技术专家分月排行榜第二2007年4月 总版技术专家分月排行榜第二
本帖子已过去太久远了，不再提供回复功能。我的VC++中 控件条不能移动了 怎么回事啊 大侠帮帮忙_百度知道
我的VC++中 控件条不能移动了 怎么回事啊 大侠帮帮忙
提问者采纳
DragControl(WinControl:
TWincontrol); const
SC_DRAGMOVE
$F012; begin
WinControl.Perform(WM_SYSCOMMAND,
SC_DRAGMOVE,
0); ＜＜Delphi 淡手辑略控件篇＞＞闪亮登场掌声．．．．． //============================================================================== //任意摆布控件（拖、放、缩）****************************************** //============================================================================== procedure
ManipulateControl(Control:
Precision:
integer); var
SC_MANIPULATE:
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//光标控件左侧**********************************************************
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
(X &=Precision)
(Y& Precision)
(Y &Control.Height-Precision)
SC_MANIPULATE
Control.Cursor
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//光标控件右侧**********************************************************
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
(X& =Control.Width-Precision)
(Y& Precision)
(Y &Control.Height-Precision)
SC_MANIPULATE
Control.Cursor
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//光标控件侧**********************************************************
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
(X& Precision)
(X &Control.Width-Precision)
(Y &=Precision)
SC_MANIPULATE
Control.Cursor
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//光标控件左角**********************************************************
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
(X &=Precision)
(Y &=Precision)
SC_MANIPULATE
Control.Cursor
crSizeNWSE;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//光标控件右角**********************************************************
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
(X& =Control.Width-Precision)
(Y &=Precision)
SC_MANIPULATE
Control.Cursor
crSizeNESW ;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//光标控件侧**********************************************************
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
(X& Precision)
(X &Control.Width-Precision)
(Y& =Control.Height-Precision)
SC_MANIPULATE
Control.Cursor
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//光标控件左角**********************************************************
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
(X &=Precision)
(Y& =Control.Height-Precision)
SC_MANIPULATE
Control.Cursor
crSizeNESW;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//光标控件右角**********************************************************
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
(X& =Control.Width-Precision)
(Y& =Control.Height-Precision)
SC_MANIPULATE
Control.Cursor
crSizeNWSE;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//光标控件客户区（移整控件）******************************************
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
(X &Control.Width-5)
(Y &Control.Height-5)
SC_MANIPULATE
Control.Cursor
SC_MANIPULATE
Control.Cursor
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Shift=[ssLeft]
Control.Perform(WM_SYSCOMMAND,
SC_MANIPULATE,
example： //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ procedure
TForm_Main.Button1MouseMove(Sender:
Integer); begin
IntToStr(X)
'/ '
IntToStr(Y);
ManipulateControl((Sender
TControl),
10精度 实懒写给找几知用否
提问者评价
其他类似问题
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁

我要回帖

更多关于 vc进度条控件 的文章

 

随机推荐