delphi的按钮怎么设置按下状态,不弹起的。

delphi的按钮怎么设置按下状态,不弹起的。
我要做个字体加粗'B'的按钮,加粗的时候按钮是按下状态(不弹起),再点一次按钮恢复常态,字体取消加粗,老师们给个代码参考。

2个回答

设置按钮的GroupIndex>0即可

使用checkbox而不是button,checkbox有个属性可以设置像按钮那样的样式,但是是按下不弹起,和弹起两种状态(而不是对勾),你找找。我记不得了。

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
其他相关推荐
delphi 如图按钮怎么实现的?

![图片说明](https://img-ask.csdn.net/upload/201807/22/1532243147_231422.jpg) 按钮大小是17*17的,我做出来的 ... 3个小点总数在最下面,我想小点在中间位置。

delphi toolbar 单击按钮出现菜单,不是右键菜单?

delphi toolbar 单击按钮出现菜单,不是右键菜单? 实现效果,单击toolbar上的按钮,在按钮下方会出现一个菜单,类似右键菜单。 在按钮的右边有个小三角,点击小三角可以出现,点击按钮不行。 如何实现。

Delphi点取消按钮退出程序

在窗体创建时就弹框提示![图片说明](https://img-ask.csdn.net/upload/201901/07/1546841724_676548.png) 点确定之后程序继续执行,进入到主窗体,若点击取消则程序不再执行,直接退出程序;附现代码 ``` procedure TForm1.FormCreate(Sender: TObject); begin if Application.Messagebox('确认是否继续!', '提示',MB_Iconinformation+MB_OKCANCEL) = ID_Cancel then begin Close; end; end; ``` 目前的问题就是点取消之后没有退出程序,也进入到了主窗体![图片说明](https://img-ask.csdn.net/upload/201901/07/1546842034_277817.png) 请各位大佬指教,谢谢

delphi 单击按钮触发combobox的下拉?

怎么做才能单击按钮,出现下拉列表? ![图片说明](https://img-ask.csdn.net/upload/201809/12/1536721567_967599.png)

我要在delphi写一个查询的按钮事件,请大家进来帮我看下

我想在delphi 里写一个查询按钮的事件,然后我想实现的是,输入想要查询的学号能找到 这条学号的记录,没有输入的话就查找出全部数据,显示出来,现在我能显示所有数据了,但是不能单独查找某一个,请大家帮忙看下 谢谢!下面是delphi的查找按钮的代码, procedure TFrmQryGSPHXX.SBQueryClick(Sender: TObject); var SQLStr : string; begin inherited; SQLStr := ''; if Trim(Edt_PHDH.Text) <> '' then begin if not IsNumber(Trim(Edt_PHDH.Text),False) then begin MymessageWarn('学生学号请输入数字!'); if Edt_PHDH.CanFocus then Edt_PHDH.SetFocus; Exit; end; SQLStr := SQLStr + ' XSXH01 = ' + Trim(Edt_PHDH.Text); end; SQLStr := SQLStr + MakeSQLForCXGSID('B'); SQLStr := SQLStr + ' ORDER BY XSXH01 '; ShowQueryQTForm(Self,'JLQT_STXX',SQLStr); end; 下面是javaEE里面写的包 /** * 查询学生录取信息 */ else if (lx.equals("PubQTQuery_STXX")) { int tiaojian = 3; selStr ="Select A.XSXH01, A.LQXX01, A.LQXX02, A.BYXX01, A.BYXX02, A.SHRY01, A.ZDRY01, A.SHRQ, A.ZDRQ FROM STXX A Where A.XSXH01 = "+ tiaojian ; }

delphi 怎么能把这个按钮做出来?

![图片说明](https://img-ask.csdn.net/upload/201809/10/1536568683_631397.png)

Toolbar控件按钮高亮显示的问题

Toolbar控件按钮高亮显示的风格怎么设置,选中的按钮显示为高亮的颜色,应该设置什么属性?

delphi按钮弹出新窗口,添加的数据在返回到第一个窗口的数据库中

![这个是主界面form1](https://img-ask.csdn.net/upload/201703/03/1488526526_133819.png) 点击添加之后会跳出form2窗口,在form2中写入数据之后,数据会添加到form1的数据库中

Delphi两个窗体切换导致第一个窗体不可点击

本人java程序员,单位需要,所以使用delphi研发,目前学习中。 问题:我的主窗体会有一个查看明细按钮,单击弹出明细窗体,但是当明细窗体关闭之后,我的主窗体就不能点击了,会发出不能点击得提示音,我理解为被锁,但是也不知道用什么方法解锁。求解答

delphi Treeview弹出右键菜单?

![图片说明](https://img-ask.csdn.net/upload/201806/24/1529810114_218109.jpg) 我只想右键‘222’,‘111’的时候右键菜单才弹出,右键其他文字不弹出菜单,代码如何实现啊? ‘222’,‘111’是分组名称,也行是其他的文字。麻烦老师给点参考。

delphi中,点击【程序上的】打开按钮后自动打开网页并实现点击【网页中的】一个按钮

假设以打开 http://mail.163.com/ 为例,程序上点击打开按钮后 打开网页并模拟点击‘注册’按钮。如何实现???? 【id="lfBtnReg" class="btn btn-side btn-reg" href="http://reg.email.163.com/mailregAll/reg0.jsp?from=163mail_right" target="_blank"】 使用的是Internet下的TWebBrowser控件,不知道对不对。 WebBrowser1.Navigate('http://mail.163.com/'); //打开网页 WebBrowser1.OleObject.document.getElementByID('lbApp').click; //点击注册按钮

Delphi Memo 控件 回车事件

情景: Delphi XE 10 有两个Memo 在点击回车按钮时将第一个Memo的值赋值给第二个Memo,同时清空第一个Memo。 问题: 第一个Memo清空后会出现一行空行如图所示 ![图片说明](https://img-ask.csdn.net/upload/201607/18/1468814430_869342.png) 需要如何才能做到像qq一样点击回车的时候只进行赋值而不添加回车呢

delphi 的winhttp怎么异步回调获取网站状态码?

我本地有一个txt的记事本里面有几十万个网站 我需要用异步获取网站返回的状态码 http.Status 网站状态码。 下面是我写的异步true 异步 那么delphi怎么回调 获取网站状态码。请具体代码顺便 备注说明 谢谢。 while do true begin Http:=CreateOLEObject('WinHttp.WinHttpRequest.5.1'); http.setTimeouts(10000,10000,10000,10000); Http.Open('head',trim(abc),true); Http.setRequestHeader('Content-Type','text/html'); Http.setRequestHeader('Accept-Language','zh-cn'); Http.setRequestHeader('Connection','Keep-Alive'); Http.setRequestHeader('Accept','*/*'); Http.setRequestHeader('User-Agent','Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1))'); http.Option[4] := (13056); Http.Option[6] := (true); Http.Send(); end;

delphi 嵌入网页回车触发不了页面submit事件,如何解决?

此时焦点已经定位到查询按钮上了,查询界面是delphi中嵌套的jsp网页,查询是一个submit提交按钮, <input name="Submit1" type="submit" id="Submit1" value="查询" class="btn3_mouseout"> 但是任凭怎么按回车键,都触发不了这个查询事件,改如何处理,求大神啊???? 百度有图 http://zhidao.baidu.com/question/936214362381770372.html

delphi 实现验证码功能

本人在用delphi做一个登录界面,想实现验证码的功能。但在百度上没找到源码。求源码连接地址或源码,谢谢。

delphi printdialog1的打印上边距,打印出来的东西往下一点?

delphi printdialog1的打印怎么设置上边距,打印出来的东西往下一点? 网上抄的代码 procedure TForm3.Button1Click(Sender: TObject); var line:integer; //定义一个line变量,用于下面控制打印各行内容 files:system.text; //告诉系统说files是文本文件,是要打印机打印的文件 begin if printdialog1.execute then //当printdialog1执行后 begin assignprn(files); //通过assignprn函数将要打印的文件交给打印机 rewrite(files); //让打印机打开文件准备打印 printer.Canvas.font:=memo1.font; //canvas是打印机的画板,用来打印文件的,直接设置字体 for line:=0 to memo1.lines.count-1 do //以下是循环memo1的每个行 begin writeln(files,memo1.lines[line]); //打印每行内容 writeln(文件名,文本的某个行); end; system.close(files); //打印完了就关闭要打印的文件 end; end;

请问一下delphi中DBNavigator的问题

在写一个简单的数据库功能,希望在DBGrid中直接对数据库进行删除,修改等。但是为什么DBNavigator只有“第一条”“下一条”等前几个按钮可以用,后头的修改,删除,刷新等按钮为什么是灰色的? 不好意思小弟初来乍到没有C币,还请各位帮忙了!

求解delphi7 新建窗口弹出出错

procedure Tfrm_main.dbbl_readClick(Sender: TObject); var frm_rfidread:Tfrm_rfidread; begin frm_rfidread.Create(nil); frm_rfidread.ShowModal; frm_rfidread.Free; end; 报错: Access violation at address 0088862b in module '.exe' .read of address 00000000

delphi 使用Query读取数据库的时候怎么做才能不显示SQL漏斗光标?

如题 我想要正常的指针样式,不要加载中的漏斗。 delphi 使用Query读取数据库的时候怎么做才能不显示SQL漏斗光标?

在中国程序员是青春饭吗?

今年,我也32了 ,为了不给大家误导,咨询了猎头、圈内好友,以及年过35岁的几位老程序员……舍了老脸去揭人家伤疤……希望能给大家以帮助,记得帮我点赞哦。 目录: 你以为的人生 一次又一次的伤害 猎头界的真相 如何应对互联网行业的「中年危机」 一、你以为的人生 刚入行时,拿着傲人的工资,想着好好干,以为我们的人生是这样的: 等真到了那一天,你会发现,你的人生很可能是这样的: ...

程序员请照顾好自己,周末病魔差点一套带走我。

程序员在一个周末的时间,得了重病,差点当场去世,还好及时挽救回来了。

和黑客斗争的 6 天!

互联网公司工作,很难避免不和黑客们打交道,我呆过的两家互联网公司,几乎每月每天每分钟都有黑客在公司网站上扫描。有的是寻找 Sql 注入的缺口,有的是寻找线上服务器可能存在的漏洞,大部分都...

点沙成金:英特尔芯片制造全过程揭密

“亚马逊丛林里的蝴蝶扇动几下翅膀就可能引起两周后美国德州的一次飓风……” 这句人人皆知的话最初用来描述非线性系统中微小参数的变化所引起的系统极大变化。 而在更长的时间尺度内,我们所生活的这个世界就是这样一个异常复杂的非线性系统…… 水泥、穹顶、透视——关于时间与技艺的蝴蝶效应 公元前3000年,古埃及人将尼罗河中挖出的泥浆与纳特龙盐湖中的矿物盐混合,再掺入煅烧石灰石制成的石灰,由此得来了人...

上班一个月,后悔当初着急入职的选择了

最近有个老铁,告诉我说,上班一个月,后悔当初着急入职现在公司了。他之前在美图做手机研发,今年美图那边今年也有一波组织优化调整,他是其中一个,在协商离职后,当时捉急找工作上班,因为有房贷供着,不能没有收入来源。所以匆忙选了一家公司,实际上是一个大型外包公司,主要派遣给其他手机厂商做外包项目。**当时承诺待遇还不错,所以就立马入职去上班了。但是后面入职后,发现薪酬待遇这块并不是HR所说那样,那个HR自...

女程序员,为什么比男程序员少???

昨天看到一档综艺节目,讨论了两个话题:(1)中国学生的数学成绩,平均下来看,会比国外好?为什么?(2)男生的数学成绩,平均下来看,会比女生好?为什么?同时,我又联想到了一个技术圈经常讨...

副业收入是我做程序媛的3倍,工作外的B面人生是怎样的?

提到“程序员”,多数人脑海里首先想到的大约是:为人木讷、薪水超高、工作枯燥…… 然而,当离开工作岗位,撕去层层标签,脱下“程序员”这身外套,有的人生动又有趣,马上展现出了完全不同的A/B面人生! 不论是简单的爱好,还是正经的副业,他们都干得同样出色。偶尔,还能和程序员的特质结合,产生奇妙的“化学反应”。 @Charlotte:平日素颜示人,周末美妆博主 大家都以为程序媛也个个不修边幅,但我们也许...

如果你是老板,你会不会踢了这样的员工?

有个好朋友ZS,是技术总监,昨天问我:“有一个老下属,跟了我很多年,做事勤勤恳恳,主动性也很好。但随着公司的发展,他的进步速度,跟不上团队的步伐了,有点...

我入职阿里后,才知道原来简历这么写

私下里,有不少读者问我:“二哥,如何才能写出一份专业的技术简历呢?我总感觉自己写的简历太烂了,所以投了无数份,都石沉大海了。”说实话,我自己好多年没有写过简历了,但我认识的一个同行,他在阿里,给我说了一些他当年写简历的方法论,我感觉太牛逼了,实在是忍不住,就分享了出来,希望能够帮助到你。 01、简历的本质 作为简历的撰写者,你必须要搞清楚一点,简历的本质是什么,它就是为了来销售你的价值主张的。往深...

外包程序员的幸福生活

今天给你们讲述一个外包程序员的幸福生活。男主是Z哥,不是在外包公司上班的那种,是一名自由职业者,接外包项目自己干。接下来讲的都是真人真事。 先给大家介绍一下男主,Z哥,老程序员,是我十多年前的老同事,技术大牛,当过CTO,也创过业。因为我俩都爱好喝酒、踢球,再加上住的距离不算远,所以一直也断断续续的联系着,我对Z哥的状况也有大概了解。 Z哥几年前创业失败,后来他开始干起了外包,利用自己的技术能...

C++11:一些微小的变化(新的数据类型、template表达式内的空格、nullptr、std::nullptr_t)

本文介绍一些C++的两个新特性,它们虽然微小,但对你的编程十分重要 一、Template表达式内的空格 C++11标准之前建议在“在两个template表达式的闭符之间放一个空格”的要求已经过时了 例如: vector&lt;list&lt;int&gt; &gt;; //C++11之前 vector&lt;list&lt;int&gt;&gt;; //C++11 二、nullptr ...

优雅的替换if-else语句

场景 日常开发,if-else语句写的不少吧??当逻辑分支非常多的时候,if-else套了一层又一层,虽然业务功能倒是实现了,但是看起来是真的很不优雅,尤其是对于我这种有强迫症的程序"猿",看到这么多if-else,脑袋瓜子就嗡嗡的,总想着解锁新姿势:干掉过多的if-else!!!本文将介绍三板斧手段: 优先判断条件,条件不满足的,逻辑及时中断返回; 采用策略模式+工厂模式; 结合注解,锦...

深入剖析Springboot启动原理的底层源码,再也不怕面试官问了!

大家现在应该都对Springboot很熟悉,但是你对他的启动原理了解吗?

离职半年了,老东家又发 offer,回不回?

有小伙伴问松哥这个问题,他在上海某公司,在离职了几个月后,前公司的领导联系到他,希望他能够返聘回去,他很纠结要不要回去? 俗话说好马不吃回头草,但是这个小伙伴既然感到纠结了,我觉得至少说明了两个问题:1.曾经的公司还不错;2.现在的日子也不是很如意。否则应该就不会纠结了。 老实说,松哥之前也有过类似的经历,今天就来和小伙伴们聊聊回头草到底吃不吃。 首先一个基本观点,就是离职了也没必要和老东家弄的苦...

为什么你不想学习?只想玩?人是如何一步一步废掉的

不知道是不是只有我这样子,还是你们也有过类似的经历。 上学的时候总有很多光辉历史,学年名列前茅,或者单科目大佬,但是虽然慢慢地长大了,你开始懈怠了,开始废掉了。。。 什么?你说不知道具体的情况是怎么样的? 我来告诉你: 你常常潜意识里或者心理觉得,自己真正的生活或者奋斗还没有开始。总是幻想着自己还拥有大把时间,还有无限的可能,自己还能逆风翻盘,只不是自己还没开始罢了,自己以后肯定会变得特别厉害...

为什么程序员做外包会被瞧不起?

二哥,有个事想询问下您的意见,您觉得应届生值得去外包吗?公司虽然挺大的,中xx,但待遇感觉挺低,马上要报到,挺纠结的。

当HR压你价,说你只值7K,你该怎么回答?

当HR压你价,说你只值7K时,你可以流畅地回答,记住,是流畅,不能犹豫。 礼貌地说:“7K是吗?了解了。嗯~其实我对贵司的面试官印象很好。只不过,现在我的手头上已经有一份11K的offer。来面试,主要也是自己对贵司挺有兴趣的,所以过来看看……”(未完) 这段话主要是陪HR互诈的同时,从公司兴趣,公司职员印象上,都给予对方正面的肯定,既能提升HR的好感度,又能让谈判气氛融洽,为后面的发挥留足空间。...

面试:第十六章:Java中级开发(16k)

HashMap底层实现原理,红黑树,B+树,B树的结构原理 Spring的AOP和IOC是什么?它们常见的使用场景有哪些?Spring事务,事务的属性,传播行为,数据库隔离级别 Spring和SpringMVC,MyBatis以及SpringBoot的注解分别有哪些?SpringMVC的工作原理,SpringBoot框架的优点,MyBatis框架的优点 SpringCould组件有哪些,他们...

面试阿里p7,被按在地上摩擦,鬼知道我经历了什么?

面试阿里p7被问到的问题(当时我只知道第一个):@Conditional是做什么的?@Conditional多个条件是什么逻辑关系?条件判断在什么时候执...

面试了一个 31 岁程序员,让我有所触动,30岁以上的程序员该何去何从?

最近面试了一个31岁8年经验的程序猿,让我有点感慨,大龄程序猿该何去何从。

【阿里P6面经】二本,curd两年,疯狂复习,拿下阿里offer

二本的读者,在老东家不断学习,最后逆袭

大三实习生,字节跳动面经分享,已拿Offer

说实话,自己的算法,我一个不会,太难了吧

程序员垃圾简历长什么样?

已经连续五年参加大厂校招、社招的技术面试工作,简历看的不下于万份 这篇文章会用实例告诉你,什么是差的程序员简历! 疫情快要结束了,各个公司也都开始春招了,作为即将红遍大江南北的新晋UP主,那当然要为小伙伴们做点事(手动狗头)。 就在公众号里公开征简历,义务帮大家看,并一一点评。《启舰:春招在即,义务帮大家看看简历吧》 一石激起千层浪,三天收到两百多封简历。 花光了两个星期的所有空闲时...

《经典算法案例》01-08:如何使用质数设计扫雷(Minesweeper)游戏

我们都玩过Windows操作系统中的经典游戏扫雷(Minesweeper),如果把质数当作一颗雷,那么,表格中红色的数字哪些是雷(质数)?您能找出多少个呢?文中用列表的方式罗列了10000以内的自然数、质数(素数),6的倍数等,方便大家观察质数的分布规律及特性,以便对算法求解有指导意义。另外,判断质数是初学算法,理解算法重要性的一个非常好的案例。

《Oracle Java SE编程自学与面试指南》最佳学习路线图(2020最新版)

正确选择比瞎努力更重要!

面试官:你连SSO都不懂,就别来面试了

大厂竟然要考我SSO,卧槽。

微软为一人收购一公司?破解索尼程序、写黑客小说,看他彪悍的程序人生!...

作者 | 伍杏玲出品 | CSDN(ID:CSDNnews)格子衬衫、常掉发、双肩包、修电脑、加班多……这些似乎成了大众给程序员的固定标签。近几年流行的“跨界风”开始刷新人们对程序员的...

终于,月薪过5万了!

来看几个问题想不想月薪超过5万?想不想进入公司架构组?想不想成为项目组的负责人?想不想成为spring的高手,超越99%的对手?那么本文内容是你必须要掌握的。本文主要详解bean的生命...

我说我懂多线程,面试官立马给我发了offer

不小心拿了几个offer,有点烦

自从喜欢上了B站这12个UP主,我越来越觉得自己是个废柴了!

不怕告诉你,我自从喜欢上了这12个UP主,哔哩哔哩成为了我手机上最耗电的软件,几乎每天都会看,可是吧,看的越多,我就越觉得自己是个废柴,唉,老天不公啊,不信你看看…… 间接性踌躇满志,持续性混吃等死,都是因为你们……但是,自己的学习力在慢慢变强,这是不容忽视的,推荐给你们! 都说B站是个宝,可是有人不会挖啊,没事,今天咱挖好的送你一箩筐,首先啊,我在B站上最喜欢看这个家伙的视频了,为啥 ,咱撇...

立即提问
相关内容推荐