Delphi 修改文本框中内容

最新推荐文章于 2023-01-17 15:09:54 发布
原创 最新推荐文章于 2023-01-17 15:09:54 发布 · 1k 阅读 · 1 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文讲述了在Delphi中如何修改Excel文本框的内容，通过分析VBA宏代码，逐步解决从 Shapes 集合获取 Shape 对象并修改 TextFrame 的Characters.Text属性的问题，强调了Excel宏和帮助文档在Delphi环境下不完全适用的情况，以及遇到困难时坚持寻找解决方案的重要性。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

Delphi 修改Excel 中文本框内容

 

首先看一下Excel中录制的宏代码吧

 

Sub Macro1()

'

' Macro1 Macro

' 宏由 HFBiao 录制，时间: 2010-5-15

'

    ActiveSheet.Shapes("Text Box 1").Select    

    Selection.Characters.Text = "55555555555555555555555555"   

    With Selection.Characters(Start:=1, Length:=26).Font

        .Name = "宋体"

        .FontStyle = "常规"

        .Size = 12

最低0.47元/天 解锁文章

200万优质内容无限畅学
xhfbx
关注
.在delphi中实现网页的自动输入
xxhh07的专栏
12-29 1120
<br />如果webbrowser由你创建<br />如果网页内容可知<br />用263举个例子<br />procedure   TForm1.FormCreate(Sender:   TObject);<br />begin<br />    b   :=   false;<br />    webbrowser1.Navigate('http://www.263.net');<br />end;<br />procedure   TForm1.WebBrowser1DocumentComplete
VBA编程（一）
bill20100829的博客
03-28 935
学习VBA编程 Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long) Sub Macro1() ' ' Macro1 Macro ' Dim VarValue1, VarValue2 As String Dim varMaxcolcount, varMaxrowcount, varIsMoveUp, varNowcol, varNowrow, i, Varcolor1, Varc...
超级文本框 for delphi
08-31
超级好用的第三方文本框控件，可以录入文本、数字、日期、时间以及下拉列表框，尤其是中国人习惯录入的方法，录入的是代码显示的是名称，只需设计几个属性和添加一个数据表就轻松搞定。
Delphi 修改内存中存储的内容.rar
07-10
Delphi 修改内存中存储的内容，演示向内存中写入数据，修改原有的内存存储内容，这个例子只是测试，可能还有不正确的地方。另外程序还实现了从内存中查找内容的方法，面向初级Delphi编程者。
Delphi6 实现文本框的自动完成功能
唐古拉山的专栏
08-02 2382
function SHAutoComplete(hwndEdit: HWnd; dwFlags: DWORD): HResult; stdcall; external Shlwapi.dll;procedure TForm1.FormCreate(Sender: TObject);begin  SHAutoComplete(Edit1.Handle,0);end;  
DELPHI获取其它程序文本框里的值（源代码）
02-13
可以获取其它程序文本框里的值，用途你懂得
Delphi超级文本框控件：便捷录入与显示名称
从给定文件信息中可以提取的知识点主要围绕在Delphi环境下使用的第三方文本框控件——"超级文本框"。首先，"超级文本框"是专门针对Delphi编程环境所开发的控件，它提供了一种高效的文本、数字、日期以及时间的录入...
Delphi For Each模式在文本框控件中的应用实例
本篇文章将详细解析Delphi中Foreach模式的用法，通过实例源代码展示如何在Delphi中实现Foreach循环，并演示如何将结果赋值给文本框控件，以及如何在程序中采用多种方式生成Foreach循环，并最终清除它。 首先，需要...
DELPHI实现跨程序文本框值抓取技术分享
标题中提到的“DELPHI获取其它程序文本框里的值（源代码）”涉及的知识点主要围绕如何在使用DELPHI编程语言时，通过编写特定的代码段来实现从外部应用程序的文本框控件中获取文本值的功能。这种功能在某些特定的场景...
Delphi中MonthCalendar组件的应用实例
05-18
在Delphi编程环境中，MonthCalendar组件是一个非常实用的控件，它用于显示和选择日期，为用户提供了直观的日历视图。本应用实例主要探讨如何在Delphi项目中有效地使用MonthCalendar组件，创建一个功能丰富的日历应用...
Delphi学习手记——控制文本框输入的字符类型
永不放弃
10-07 1766
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin  if (pos(.,Edit1.Text)>0) and (Key=.) then               //控制文本框内只能输入一个小数点  begin    Key:=#0;    exit;  end;  if not (Key in [
Delphi 操作Excel方法大全
itkeyuan的专栏
01-17 4710
DELPHI控制EXCEL详细方法
delphi与Excel 2
beyondqd的专栏
01-17 1533
Delphi作为一个出色的RAD，强大的数据库功能是其最重要的特色之一，但是操纵困难的QuickReport控件常常不能满足数据库报表的需要。如果你的报表非常复杂，或者要求灵活地改变格式，那么使用Excel作为报表服务器是一个不错的选择。 Delphi从版本5开始提供的Excel组件极大地简化了OLE自动化技术的应用。 不过缺漏多多的帮助文件一直是Delphi最令人诟病的地方，这些新组件也不例
VBA 基础相关
Aaron121314的博客
03-09 717
1. 复选框 添加 Add()里面是位置，也可以用Cells(1,1).Left这样 Dim i For i = 1 To 10 ActiveSheet.CheckBoxes.Add(10,10,20,20).Select Selection.Characters.Text = "abc" next 选择 全选 不是打钩 ActiveSheet.CheckBoxes.Select 全打钩 ActiveSheet.CheckBoxes.value = True .
vba - 循环 添加 复选框
Code_NewGame的博客
10-22 5342
Sub addCheckBox()  For i = 1 To 8        'MsgBox (Str(i))     ActiveSheet.CheckBoxes.Add(Cells(1, i).Left, Cells(1, i).Top, 25, 16.5).Select  '在cells(i,1)处添加复选框     Selection.Characters.Text = str(i) ...
vb的学习和开发笔记-textbox
温辉的博客
04-02 4344
1.textbox是vb中的文本框，用户可以在文本框区域显示、修改、编辑文字内容 常用的属性： 1.text:内容 2.maxlength:长度 3.locked:可编辑性 4.MultiLine:可多行性 5.PasswordChar:代替 6.ScrollBars:滚动条 7.seltext:用于显示被选中的文本文字 8.sellength:用于计算选中文本的长度 9.selstart:用于定义文本初始位置 1.tex...
Delphi对Excel的所有操作(一)
crkres9527
06-15 5717
学完这个你就成为excel高手了！（Delphi对Excel的所有操作）逐个试试！   一) 使用动态创建的方法  首先创建 Excel 对象，使用ComObj:  var ExcelApp: Variant;  ExcelApp := CreateOleObject( 'Excel.Application' );  1) 显示当前窗口：  ExcelApp.Visible 
DELPHI常见属性说明
Lixinag的专栏
01-13 2650
 ALIGN 设置组件对齐（同其父容器）方式BORDERSTYLE 设置组件边框形状CAPTION 设置组件标题CTL3D 设置组件边框是否为3D模式，若BORDERSTYLE设置为BSNONE则此属性无效COLOR 设定组件背景颜色CURSOR 设定鼠标经过组件时光标所显示的形状ENABLED 设定组件是否能使用，当设为FALSE时组件会呈灰色FONT 设定组件内文字的字型、字体大小、颜色等HE
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值