小编TLa*_*ama的帖子

我想知道如何比较列表框之间的项目.在我的主表单上有两个列表框.我想通过点击事件将项目从第1个添加到第2个,但是当使用它时,相同的项目将在第2个列表框中相乘.任何想法解决"文件已存在"？

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := ListBox1.Items.Count - 1 downto 0 do
    if ListBox1.Selected[i] then                       
      ListBox2.Items.Add(ListBox1.Items.Strings[i]);
end;

我在Delphi 5中构建了许多可执行应用程序,它们通过网络与数据库进行通信.在我的Windows 7 PC和其他PC上,它们在没有任何警告的情况下运行,但在某些客户端PC上,它会发出"未知发布者"警告,这种警告看起来并不专业,可能会导致其他权限问题.

我的问题如下:

• 可以在设计时将任何内容添加到应用程序中,例如在版本信息中,以使其成为更受信任的应用程序.这在Delphi5中实际可行吗？
• 有什么我必须要求Microsoft作为应用程序构建器来帮助他们信任我的应用程序吗？
• 如果不能解决上述问题,如何在Windows 7中禁用"受信任的发布者"警告？(道歉这不是德尔福问题)

谢谢

我想在我的安装程序中:

• 安装过程中无限的音乐循环播放

• 背景上的一个窗口(就像过去用屏幕填充图像并只显示安装窗口的旧安装),在该背景窗口上有幻灯片显示

如何在InnoSetup中做到这一点？

我的应用程序有350个编辑字段,所有这些字段都有一个OnMouseMove事件.我为所有这些代码生成了这个代码:

...

type

...    
procedure Edit1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure Edit2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);    
...

implementation

{$R *.dfm}

...    
procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,  
  Y: Integer);  
begin 
  Edit1.SetFocus(); 
end;

procedure TForm1.Edit2MouseMove(Sender: TObject; Shift: TShiftState; X,  
  Y: Integer);
begin 
  Edit2.SetFocus(); 
end;    
...

但我没有去对象检查器双击OnMouseMove.有没有办法让这个工作没有对象检查器.您是否有一个示例代码行可以使其适用于第一个编辑字段？

使用Dephi XE,当用户单击按钮时,我希望能够在StringGrid(SG)中选择单元格(没问题),然后允许用户立即开始键入该单元格.

SG.Row := DesiredRow;
SG.Col := 1;
SG.SetFocus;

这会将所需的单元格设置为蓝色,但用户必须单击要输入的单元格.我希望用户能够在单击按钮后立即开始键入,而无需使用鼠标.

我不知道这只是我遗漏了什么,但我对此问题感到非常沮丧.
当我尝试设置.color属性时,没有可用的值,例如claBlue.

例如:

 Canvas.Stroke.Color := claBue.

我错过了参考吗？我已经包括FMX.Types.

该函数（在 Delphi 7 中）对于+等快捷方式返回与+ShortcutToText相同的结果。Ctrl1CtrlNumpad 1

如何修改此函数以返回数字键盘键的不同结果？

从我可以告诉他们这两个应该是在我正在使用的System.UITypes,但我仍然得到错误消息.我怎样才能解决这个问题？

我基于http://docwiki.embarcadero.com/CodeExamples/XE7/en/FileExists_(Delphi)中的示例中的消息对话框

原始代码来自http://delphi.radsoft.com.au/2013/11/checking-for-an-internet-connection-on-mobile-devices-with-delphi-xe5/

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

uses
  NetworkState;

procedure TForm1.Button1Click(Sender: TObject);
var
  NS: TNetworkState;
begin
  NS := TNetworkState.Create;
  try
    if not NS.IsConnected then begin
      MessageDlg(('No connection'), mtConfirmation, [mbOK], 0);
    end else if NS.IsWifiConnected then begin …

在我的应用程序中,我有两种形式,比如LoginForm和AccountForm

LoginForm被设置为主窗体,它是用户能够从他的帐户登录时的表格(两个TEdits和登录按钮).当用户键入其登录详细信息并进行连接时,将打开一个新表单AccountForm.

如何在不关闭整个应用程序的情况下关闭登录成功的LoginForm？或者用这种语言如何使用下面的代码来关闭登录表单但不关闭应用程序.

if (not IncludeForm.sqlquery1.IsEmpty) and (isblacklisted='0') and (isactivated='1')  then
begin // Login Successful *** Show the account window
AccountForm.Show;
LoginFrom.Close; // <----The problem is in this line, using this line causes the whole application to close***}
end;

谢谢

我正在研究一个小规模的企业数据库应用程序.它适用于供应商,设备类型,设备,供应商,发票,部门,员工等业务对象,因此我需要让用户查看和编辑所有这些表中的数据.

我的第一种方法是为每种类型的业务对象创建一对表单:

1. 用于查看和选择对象的表
2. 这种类型对象的编辑表单

但现在我发现很难保持所有这些形式,因为例如,如果我想改变所有视图形式的外观,当然我必须编辑它们中的每一个.所以我想用一个"模板"形式替换我的所有视图表单,并用某种参数调用它.问题是,我不知道正确的方法来执行它.也许在某本书或其他地方可能有一些例子？