请问两个小问题。那位朋友可相帮。 (50分)

  • 主题发起人 主题发起人 阿虫
  • 开始时间 开始时间
阿

阿虫

Unregistered / Unconfirmed
GUEST, unregistred user!
1 如果有一个BUTTON1。
我点击一下，要将它的
BUTTON1。CAPTION：=‘1234565’；
同时执行：
COMM1.STARTCOMM;

再点一下，它的BUTTON1。CAPTION：=‘567890’；
同时执行：
COMM1.STOPCOMM;
往复循环，如何实现的。

还有，我想在不同窗口中调用数据，如何做到的。
比如：在不同的三个窗口中的FROM1。EDIT1。TEXT：=FROM2。EDIT1TEXT + FROM3。EDIT1。TEXT；
如何实现的，多谢指教了。
 
onbuttonclick(....)
begin
if BUTTON1。CAPTION：=‘567890’ then
begin
COMM1.STARTCOMM;
BUTTON1。CAPTION：=‘1234565’;
end
else
begin
BUTTON1。CAPTION：=‘567890';;
BUTTON1。CAPTION：=‘567890’；
end;

end;
 
在form1中user form2,form3就行了。
 
楼上的 2个问题 都解答了～ [:(]
 
就是，来晚了
 
提醒你一点,在程序中不要建立多了窗口,不用的先释放,要用的时候再建立.
//问题1,2楼都回答了.
 
不不，第一问题有点问题的，执行的时候它提示要定义布尔类型的变量。
[Error] COMM.pas(344): Type of expression must be BOOLEAN
 
晕倒！
COMM1.STARTCOMM（true）;
COMM1.stopTCOMM（true）;
 
to 天真
老大，再说清楚点，我还是不太懂呀。
 
第二个问题还没有解决啊。
 
在天真的基礎上改一下：
if BUTTON1.CAPTION=‘567890’ then //條件語句不能用:=
begin
COMM1.STARTCOMM;
BUTTON1.CAPTION:=‘1234565’;
end
else
begin
BUTTON1.CAPTION:=‘567890';;
COMM1.STOPCOMM;

end;
 
这下好了，谢谢大家了。谢谢
 
var
check : boolean
begin
check := not check;
if check then
begin
COMM1.STARTCOMM;
BUTTON1.CAPTION:=‘1234565’;
end
else
begin
BUTTON1.CAPTION:=‘567890';;
COMM1.STOPCOMM;
end;
end
第二个问题补充一下：
USERS是必须的，执行时三个FORM要都存在，而且都又合法的数据
TRY
FROM1.EDIT1.TEXT：=FROM2.EDIT1.TEXT + FROM3.EDIT1.TEXT；
EXCEPT
SHOWMESSAGE('ERROR！');
ABORT;
FORM1.EDIT1.SETFOCUS;
END;


 
谢谢大家了，问题解决了。谢谢！
可惜我分太少，各加一点，表达我的谢意吧。
 
您必须登录或注册才可回复。

Similar threads

S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
[原]希望OrangeUI有个好的开始
回复
0
查看
1K
DelphiTeacher的专栏
D
I
IE相关
回复
0
查看
613
import
I
I
程序退出任务栏空格问题解决
回复
0
查看
613
import
I
后退
顶部