小编Gia*_*rmo的帖子

如何从资源文件加载图像bmp并将其加载到image1.Picture？我试过这个:

{$R resource.res}
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
 BitMap1 : TBitMap;
begin
  BitMap1 := TBitMap.Create;
  try
    BitMap1.LoadFromResourceName(HInstance,'down');
    Image1.Picture(BitMap1);
  finally
    BitMap1.Free;
  end;
end;

但是不行.谢谢!

我创建了一个文件.RC:

DOWN BMP DOWN.BMP 

我用brcc32.exe编译:

brcc32.exe resource.rc

我实现了资源:

{$R resource.res}

但是找不到文件bmp.

它不起作用,总是一个错误,但我找到了另一个代码:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
   Image1.Picture.Bitmap.Handle := LoadBitmap(hInstance, 'DOWN');
end;

但是当我点击图像消失时,为什么？谢谢

这是代码:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan, ExtCtrls;

type
  TForm1 = class(TForm)
    XPManifest1: …

如何在同一浏览器选项卡中打开链接？我试过这段代码:

ShellExecute(Handle, 'open', 'http://site.com', '_self', nil, SW_SHOWNORMAL);

但它继续在新表中打开链接.

谢谢.

如何保留文件.txt中存在的相同空格？在.txt文件中它说:

text     :text
text1    :text1
text23   :text2
text345  :text3

如果我写这个代码:

Memo1.Lines.LoadFromFile('Text.txt');

这出现在Memo1中:

text     :text
text1     :text1
text23     :text2
text345     :text3

文本与文件不同.文本.

如何获取有对象的页面编号？例如:第一页上有一个Button1,第二页上有Button2,如何获得没有ActivePageIndex的Button1页面的编号？谢谢.

我正在尝试在我的网络空间中上传文件.txt,但随后问题开始了,我尝试的代码是:

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdExplicitTLSClientServerBase, IdFTP, StdCtrls;

procedure TForm1.Button1Click(Sender: TObject);
var
FTP:tidftp;
begin
FTP.Host:='website.altervista.org';
FTP.Username:='website';
FTP.Password:='password';
FTP.Port:=25;
FTP.Connect;
FTP.Put('C:\Users\user\Desktop\text.txt');
FTP.Quit;
end;

我没有收到任何错误,但是当我启动程序并单击按钮时,出现错误:

并紧接着:

然后按钮消失了.

为什么？谢谢!

我从http://code.google.com/p/delphichromiumembedded/下载了必要的TortoiseSVN,但我不知道如何在Delphi XE2中使用它.如何安装TChromium组件？

我会从Memo1中选择一个随机行,然后将其作为链接运行,我尝试了这段代码:

ShellExecute(Handle, 'open', PAnsiChar(RandomRange(Memo1.Lines[1], Memo1.Lines.Count)), nil, nil, SW_SHOWNORMAL) ;

但是出现错误:

Unit1.pas(86): E2010 Incompatible types: 'Integer' and 'string'

所以我的问题是:如何从TMemo中选择随机行？

谢谢.