有没有办法使用多个值的delphi输入框？
有办法使用多个值的Delphi输入框。在Delphi中，可以使用TEdit控件来创建一个输入框，然后通过TEdit.Text属性来获取或设置输入框中的文本。如果需要使用多个输入框，可以创建多个TEdit控件，并将它们放置在一个容器控件（如TPanel或TGroupBox）中。
以下是一个简单的示例代码，演示如何在Delphi中使用多个输入框：
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('输入框1的值：' + Edit1.Text + #13#10 +
'输入框2的值：' + Edit2.Text + #13#10 +
'输入框3的值：' + Edit3.Text);
end;
end.在这个示例中，我们创建了一个包含三个输入框和一个按钮的简单表单。当用户单击按钮时，程序将显示每个输入框中的值。
需要注意的是，在实际开发中，应该使用更高级的控件（如TDBEdit或TDBText）来处理数据输入和输出，以便更好地控制数据的存储和显示。
相关·内容
在执行以下代码时，应使用当前高度计算到地平线的距离，但只能计算高达63米的高度，然后从64米起计算无效的浮点操作。
为什么会发生此错误？
unit Unit_ch4_2;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Button1: T
浏览 7提问于2022-07-26得票数 2
回答已采纳
1回答
今天，我试着去理解通知。我有一个像这样的主表单：
如您所见，在表单中，有一个我用于mbed表单的LMDFormDisplay组件。当用户单击表单左上角的图标时，我将显示第二个表单，名为frmList。下面是主窗体的代码：
unit main;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
Vcl.ExtCtrls, L
浏览 0提问于2016-05-31得票数 0
1回答
表单"Form1“包含一个面板。
在这个面板上，我们希望嵌入第二个表单"Form2“。
但是，不仅应该嵌入组件，而且还要嵌入功能。
我使用的是VCL表单。
我已经在这个页面上尝试过这个教程了。
unit parent;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, child;
typ
浏览 0提问于2019-06-11得票数 1
我有一个具有多个窗体的应用程序，每个窗体都有一个单独的任务栏按钮。
假设form2显示一个OpenDialog，我单击另一个覆盖全屏区域的最大化应用程序，然后通过选择任务栏按钮返回到form2。瞧！OpenDialog隐藏在我选择的另一个应用程序后面，我必须单击现在不可访问的form2才能将对话框带回前面。这真的很烦人，可能会让用户感到困惑。
下面是一些代码来说明这个问题：
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classe
浏览 2提问于2014-08-14得票数 1
1回答
我想搜索一个关键字添加到CheckListBox在我的计算机中的选定文件夹中，通过单击TButton2。我的意思是，应用程序将搜索在所有日志文件，是在选定的文件夹。我不想选择一个文件在其中搜索，但所有文件夹。拜托，帮帮我
如果有帮助，这就是我的全部代码：
unit UPrzeszukiwaczLogów;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl
浏览 11提问于2021-12-16得票数 0
我想添加一个指向TIdTCPServer的数据指针，我希望它也能在TIdCustomTCPServer中使用。我不擅长覆盖，等等，所以这就是我到目前为止所拥有的：
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdContext, IdBaseComponent, IdComponent,
IdCusto
浏览 0提问于2013-07-20得票数 0
回答已采纳
我用这个代码来获得压力属性，但不起作用。为什么GetPointerPenInfo函数返回false？LastError函数返回87 (参数不正确)
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Winapi.wmPointer, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel
浏览 2提问于2019-01-08得票数 2
回答已采纳
我正在使用Delphi和下面的代码创建一个用于Amazon的MD5 base64哈希。如果我将其编译为32位Windows，但如果编译为64位窗口，则返回哈希将发生更改。造成这种情况的原因是什么，我如何更改它以使它们返回相同的散列？
function getMd5HashString(value: string): string;
var
MessageDigest: TIdHashMessageDigest5;
Content: TBytes;
begin
Content := TEncoding.UTF8.GetBytes(value);
MessageDigest:=TI
浏览 3提问于2017-03-27得票数 5
回答已采纳
1回答
当剪贴板文本更改时，我的应用程序如何接收通知？
例如，：
我将启用/禁用粘贴按钮并设置其Hint属性，以显示剪贴板的文本(如'Paste "%s"')。
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TMyPasteForm = cl
浏览 0提问于2020-10-29得票数 3
回答已采纳
我正在编写一个组件，并希望将基本类型更改为TForm，但是在运行时，我得到了“资源TMyComp未找到”错误。我想这是因为没有dfm，但我不知道该怎么办。
谢谢
unit Unit65;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TMyComp = class(TForm);
T
浏览 0提问于2017-01-27得票数 6
3回答
我想做一个简单的程序，将Edit1.Text设置为"6“(例如，使用DLL --这很重要)。这是代码:单元：
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1
浏览 2提问于2015-01-03得票数 0
回答已采纳
1回答
这是我得到错误的那部分代码：
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cefvcl, Vcl.ExtCtrls, Vcl.StdCtrls, ceflib,
Vcl.ComCtrls, Vcl.ImgList, Vcl.Imaging.pngimage, Vcl.Buttons, JvSpeedBu
浏览 0提问于2013-01-05得票数 4
回答已采纳
1回答
我想更新和删除我的记录。我使用dbgrid来显示数据库，并使用uniquery进行查询。我成功地执行了insert查询，但没有使用update和delete。
这是我的代码：
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.DBGrids, Data.DB,
DBAccess,
浏览 1提问于2016-05-09得票数 0
回答已采纳
使用delphi XE7。我只想将框架加载到面板中，然后单击按钮在运行时查询框架内的标签标题属性。我好像没办法让它起作用。敬请指教。谢谢。
Panel2 in Unit1
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils,
System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;
type
TForm1 = class(TF
浏览 1提问于2015-05-05得票数 0
回答已采纳
我有一个表单，在该表单中，我以编程方式创建了一个按钮，如下所示：
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
Vcl.StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Send
浏览 1提问于2016-12-21得票数 3
回答已采纳
我想将TCustomForm的后代显示为对话框，以便将它们定位为poOwnerFormCenter。但是，当FormStyle为fsNormal时，正确定位窗体的代码不会在FormStyle为fsMDIChild时设置正确的位置。
当辅助表单具有FormStyle = fsNormal时，Button1将打开模式对话框，如下所示：
但是，当辅助窗体具有FormStyle = fsMDIChild时，定位似乎是相对于MDI子窗体相对于MDI父窗体的位置，而不是相对于MDI子窗体的绝对位置：
我不确定我是否犯了任何错误，这可能是一个bug或正常行为。
下面的代码用于显示对话框：
pro
浏览 45提问于2018-06-07得票数 2
回答已采纳
1回答
为了使按钮从(0.0)移动到(500.500)，我使用了循环和线程睡眠过程，如上面的代码所示：
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TForm1 = class(TFor
浏览 2提问于2015-09-05得票数 1
回答已采纳
1回答
如何实例化不同的帧类型？
、、、
我又带着画框来了。我有一个主要的表格：
它只是为了理解框架的使用而创建的一个简单的表单。在表单顶部有两个按钮，我想打开这两个框架：
Frame1
和Frame2
下面是代码，第一帧的简单代码：
unit AppFrame1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
Vcl.StdCtrls;
浏览 2提问于2016-09-28得票数 3
回答已采纳
1回答
VCL样式出现故障:当您更新窗体标题时，以前在同一过程中重新绘制的其他控件不会被重新绘制，您将被迫调用重绘，从而失去了宝贵的重绘处理时间。
示例：(手动设置项目选项/vcl样式)
unit Unit11;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;
type
TForm
浏览 3提问于2012-04-06得票数 25
我使用的是Delphi XE3。目前我单位的函数太多了，而且其中有一个很长。所以我想把这个长函数放到另一个单元中。这有可能吗？
我尝试如下：
Unit1：
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Button
浏览 0提问于2020-12-31得票数 1
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
