- 博客(262)
- 资源 (32)
- 收藏
- 关注
原创 Lazarus以TPageControl控件承载窗体
一、主窗体代码varbeginbeginexit;end;//父控件为窗体begin//alTop;//Show;end;end;二、子窗体代码beginwOne.Free;end;
2025-10-27 11:46:45
293
原创 Lazarus经典MDI窗口
Lazarus支持MDI窗体,把主窗体的FormStyle设置为fsMDIForm,子窗体的FormStyle设置为fsMDIChild。以两个子窗体为例,子窗体的名称分别为wOne和wTwo.子窗体关键点主要在窗体关闭事件上。
2025-10-27 11:17:53
397
原创 Lazarus中调试信息输出到日志文件或是控制台
/输出到Log文件。DebugLN( intToStr(i) + ' 变量' + getEnvironmentString(i));
2025-10-13 20:43:49
834
原创 Lazarus使用TSQLQuery更新的一点技巧
只要选中了ParseSQL选项,deleteSql updateSql insertSql refreshSql中的语句完全可以不用写,lazarus会自动生成。MessageDlg( '错误提示','出现错误:' + E.Message,mtError,[mbOK],0 );
2025-10-08 20:16:23
747
原创 lazarus使用odbc连接MS access数据库
MessageDlg( '错误提示','出现错误:' + E.Message,mtError,[mbOK],0 );
2025-10-04 14:41:22
423
原创 勿让好意变习惯
对偶尔一次的仁慈感激涕零。甚至被当作武器伤害你时,成了他世界运转的规矩;成了你必须履行的义务。对日复一日的恩惠麻木,那一块钱不再是善意,那一巴掌不再是伤害,当你的好不再被珍惜,请务必记得及时收回。
2025-10-04 14:12:56
109
原创 FreePascal显示枚举类型的值和字符串
ShowMessage('数据集状态' + _s '其值为' + _n);转换为字符串还可以用以下方式,该方式必须先引用TypInfo库。比如Lazarus里有一个数据集状态的枚举类型,其定义为。在过程中使用以下语句可以显示字符串和数值。一、如何把枚举类型里的值显示出来呢?
2025-10-04 14:07:18
554
原创 Lazarus中TDbGrid控件某列显示不同于数据库表中的值
在实际的应用中,我们经常会在tdbgrid列中显示需要把数据库表中字段的实际值显示为另一个值 ,比如性别字段 ,在数据库中可以存储的是M与F两个值,而在程序中我们需要把它们显示为男跟女。// 把显示的值转换为字段中实际需要存储的值。if aText = '女' then。aText := '男'aText :='女';
2025-10-01 10:18:01
326
原创 Microsoft Access SQL 查询中的通配符
示例:SELECT * FROM [生日表] WHERE ([出生日期] >= #2000-01-01#)Microsoft Access 在 SQL 查询中的通配符语法与其他数据库系统不同。,但此处已不再找到(某些副本仍存在于第三方站点的 Web 中)。
2025-09-29 11:10:35
1412
原创 很多时候只是你的情绪走进了死胡同
余华说:“很多人觉得自己好像已经走投无路了,其实你可能是情绪进入了死胡同,而不是你的人生进入了死胡同。每个人都会经历一段异常艰难的时光。也许是因为工作的失意、学业的压力,亦或是困于生活的窘迫,人际的难题。仿佛再也熬不过去,人生就此停滞了。然则,真相往往潜藏于经历之后——真正让人不堪重负的,并非忙碌的工作节奏,亦非日常琐碎的牵绊,而是心灵深处那份无形的重担。压垮我们的不是问题,而是情绪。
2025-07-27 10:36:59
456
原创 破山中贼易,破心中贼难。
这种自我攻击的模式太熟悉了,就像每次冲突后,大脑会自动播放“都怪你太软弱”“连被讨厌都不敢”的循环广播。边界感缺失的人就像敞着门的金库,吸引的不是知己,是来去自如的过客。神奇的是,当我把精力从“讨好所有人”转到“保护自己”时,反而收获了更轻松的关系。明明被伤害的是我,先伸手的也是我。那些总在反思的人啊,你们手里握着的不是软弱,是尚未驯服的力量——只是以前用错了方向,把它全倒进了别人的杯子里。你的敏感、你的自卑、你的软弱让你只看到自己的不足,一旦被人误解或利用,转过头却再度用否定的态度审视自己。
2025-07-27 10:33:24
379
原创 越打游戏越痛苦
对很多年轻人来说,电子 游戏已经成为一种觉的“心灵避风港“。工作一天后,玩几局游戏释放压力,听起来的确很美好。从某种程度上来讲,游戏解压确实有效。但玩游戏并不能觪决你的焦虑。因为焦虑往往来源于对未知的担忧。况且,也不是所有的游戏都能让人轻松愉快。像有些游戏有排名,当玩家长时间玩不过时,就会影响情绪,开始焦虑,甚至崩溃。当玩家过度关注战绩和胜率时,会有不赢不下的想法,导致越玩越累。完全忘了玩游戏是了放松。
2025-07-24 18:59:25
890
原创 人生最珍贵不过几个十年
人生最珍贵不过几个十年,第一个十年为年少无畏,第二个十年为逐梦闯荡,第三个十年为沉淀回甘。请好好把握活着的每一刻,珍视当下所拥有的所有,对自己狠一点,人生没多长,别在该拼的时候选择安逸。对身边人暖一点,无论是家人、朋友还是爱人,下辈子很难再重逢。人这一生,就是一场旅程,没有永远的年少,没有不散的筵席,时光流转,该来的来,该去的去,百年之后,皆为过客。总觉得日子漫长,我们过得悠悠荡荡,却忘了时光的车轮匆匆,回头再看,人生是个渐悟渐明的过程,也是个渐失渐获的过程。
2025-07-24 18:02:12
359
原创 人性的枷锁
少年困于欲;老者困于忆;强者困于傲;弱者困于惧;智者困于思;愚者困于迷;富者困于守;贫者困于求;农人困于土;商人困于利;文人困于名;匠人困于技;官吏困于权;隐士困于孤;勇者困于莽;怯者困于缩。
2025-07-23 19:29:52
211
原创 人到了一定年龄,就会发现,好像什么都没有了
村上春树说:"人到了一定年龄,就会发现,没有喜欢的东西了,也没有喜欢的人了,好像什么都没有了,也不知道为什么活着了。我也不是非要去死,只是不知道为什么活着,活着的目的好像就是为了活着了。走着走着,人就老了,突然发现:嗨,那股子劲儿呢?对人对事,提不起太大兴趣;花钱的欲望,淡得像白开水;连孩子的事儿,也学会了适度放手;倒是记得隔三差五看看老爹,打个电话,心头那份牵挂,沉甸甸的。为啥这样?还不是活明白了。到了这个年纪,才真懂了"浮生若梦",看多了起起落落,心就静了,跟秋天的湖面似的。
2025-07-23 19:28:14
243
原创 人生要学会处理情绪
在一次公开演讲中,林肯收到一张纸条,上面写着“笨蛋”。在演讲结束时,林肯以幽默的方式化解了这一尴尬局面:“今天收到一张奇怪的纸条,只有署名没有内容。这一事件成为林肯机智和谦逊的经典例证。它体现了政治家在面对挑衅时的成熟态度,也反映了林肯善于用自嘲和幽默拉近与民众的距离。类似的故事在林肯的生平中多次出现,显示出他独特的人格魅力。林肯的回应展现了高超的沟通技巧和领袖风范。通过幽默化解敌意,既维护了自己的尊严,又避免了与批评者正面冲突。这种方式不仅平息了可能的紧张气氛,还赢得了听众的尊重和笑声。
2025-07-22 19:42:18
273
原创 做情绪的主人
人有悲欢离合,月有阴晴圆缺”。人生不如意事十之八九,历史和现实上也没有几件事是圆满的。为工作 或是家庭中不顺的事就悲观,情绪低落,甚至厌世,都是不合适了。波动起伏的情绪使我们的人生绚丽多彩,但我们需要管理好自己的情绪,不能让峰谷起伏太过。养花弄草,读书写字还是与朋友聚会都是为了让自己心情愉快,而不是为了给自己添堵。我们需要经常在心理上暗示自己生活中的不如意都是暂时的,美好才是永恒的主题。
2025-07-22 19:40:49
1062
原创 人生的意义
凡事发生皆有利于我,所有发生的事都是我们的红尘厉练,所有发生的都是好事。一个活好的人,可以通过遇见的每个人、发生的每件事,让自己越活越好。活颠倒的人,就是拿别人事和老天的事太当真,面对自己的事却不认真~放下那些不必要的执着和烦恼,专注于自身的成长和进步。人生的意义,不是“想”出来的,而是“活”出来。只有活好自己的事,才是自己来人间起一趟的真谛。越活越好,人生当下的每一刻都是最好的时光。学会认错,是人生中非常重要的功课”,才会发现别人的事和老天的事那都不是事。自己的事,别人的事,老天的事!
2025-07-21 18:15:06
611
原创 印痕复演 - 疗愈“内在小孩子”
小时候感受到的负面情绪,会不断干扰我们成年以后的生活。遇到挫折或是与创伤相似的刺激时,就会激发童年创伤(印痕复演)。所以成年的我们陷入情绪崩溃很多时候并非由于事件本身。事件可能只是个导火索。真正引发痛苦的是我们从小受伤却一直未被疗愈的“内在小孩子”
2025-07-21 18:12:36
1049
原创 越自律越自由
这么管着自己的生活,可不是给自己找罪受,而是为了以后能有更大的自由。晚上,别人都在玩,自律的人却能安静地看书,让自己学到更多东西。大冷天的早上,别人都在被窝里赖着,自律的人已经起来跑步了。一个人越自律,就越能掌控生活,在人生路上走得更自在。跑的时候累得直喘气,可每坚持一下,都是在锻炼自己。可好多人都想错了,觉得想干啥就干啥才叫自由。实际上,真正的自由不是放纵,而是来自自律。就算没人盯着,也能按照自己所定的规矩做事。在生活里,人人都盼着能自由自在。自律,说白了就是自己管着自己。越自律越自由,越品越有味。
2025-07-20 09:17:34
467
原创 惊喜来得这么突然
烟台原力月榜是烟台地区具有一定影响力的评选活动,入围第一名通常意味着在特定领域或行业中有突出表现。这一成就可能涉及创新、社会贡献、商业成就或其他领域的卓越表现。入围榜首往往能带来更多的曝光机会、资源对接以及行业认可。如果需要更具体的建议,可以提供更多关于入围项目或个人的背景信息。
2025-07-20 09:14:47
118
病毒的命名规则
2007-08-17
配置好的CodeBlocks20.03+wxWidgets3.14
2020-12-03
配置好了wxWidgets3.2.8的CodeBlocks25.03
2025-05-04
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人
RSS订阅