Lazarus中文社区

 找回密码
 立即注册(注册审核可向QQ群索取)

QQ登录

只需一步,快速开始

版权申明
查看: 1711|回复: 0

单从控件来说

[复制链接]

该用户从未签到

发表于 2014-6-11 01:45:22 | 显示全部楼层 |阅读模式
lazarus感觉好像是VB。。。

直接令属性等于多少。。

procedure TForm1.Button1Click(Sender: TObject);
begin
     if Button1.tag =0 then
   begin
     Button1.caption := 'Press again';
     Button1.tag := 1 ;
     Button1.Top :=3 ;//自己添加的一行 果然实现了位置移到最上面。。
   end else
   begin
     Button1.caption := 'Press';
     Button1.tag := 0
   end

end;                     

毕竟楼主只玩过VB。。

还有lazarus,

玩的别的python之类的都不带界面也不好说。。
回复

使用道具 举报

*滑块验证:

本版积分规则

QQ|手机版|小黑屋|Lazarus中国|Lazarus中文社区 ( 鄂ICP备16006501号-1 )

GMT+8, 2024-7-15 13:35 , Processed in 0.032467 second(s), 9 queries , Redis On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表