小编Lit*_*per的帖子

如何在表单上获得光标位置?

我需要在窗体上获取光标位置,但不是在屏幕上!

delphi delphi-7 cursor-position

5
推荐指数
1
解决办法
8968
查看次数

5
推荐指数
2
解决办法
3254
查看次数

如何在表单上绘制透明图像?

我想在Delphi表单上绘制透明图像,但它不起作用.

这是原始的PNG:
透明边框

我已经在TImage中加载了图像::

Image1.Transparent := True;
Form1.Color := clWhite;
Form1.TransparentColor := True;
Form1.TransparentColorValue := clWhite;
Run Code Online (Sandbox Code Playgroud)

的TImage

应用程序:
应用


图像不完全透明.
图像可以通过任何控件或仅通过画布绘制.
我想使用BMP图像.
也许我做错了什么?
请帮忙!

delphi transparency alphablending delphi-7

5
推荐指数
1
解决办法
9321
查看次数

TPNGObject - 创建一个新的空白图像并在其上绘制半透明图像

我正在构建看起来像任何操作系统的应用程序,除了它是一个程序.我有它自己的窗户.输出是TImage.

1)应用程序加载形成皮肤文件到TPNGObject:

皮肤

2)然后应用程序应创建一个新的空白TPNGObject,并将皮肤文件的大小调整为所需的大小,并在该空白图像上绘制它们.应该是这样的:

新形式

3)输出TImage:

产量

问题是我确实知道如何创建空白的屏幕外图像.当然我不能简单地绘制皮肤文件TImage,但是更容易调整皮肤文件的大小并创建一次窗口,而不是每次都绘制TImage(也会达到性能).
我正在使用Gustavo Daud的PNG Library,版本1.564(2006年7月31日).

delphi png transparent delphi-7

5
推荐指数
2
解决办法
9490
查看次数

如何在本地为多用户应用程序存储密码?

我想创建一个多用户应用程序,但我不知道如何保存和读取加密密码.

procedure SavePass(Password: WideString);
var
  Pass: TIniFile;
begin
  Pass := TIniFile.Create(ChangeFileExt(Application.ExeName, '.PASS'));
  Pass.WriteString('Users', 'USERNAME', Password);
  Pass.Free;
Run Code Online (Sandbox Code Playgroud)

密码必须存储在计算机上.这有效,但使用它来保存密码是愚蠢的.散列密码也很好.

delphi passwords delphi-7

4
推荐指数
1
解决办法
2819
查看次数

Delphi - 从外部文件执行函数和过程

是否可以从文本文件中读取和执行过程或函数?

delphi delphi-7

4
推荐指数
2
解决办法
1129
查看次数

4
推荐指数
2
解决办法
5378
查看次数

4
推荐指数
3
解决办法
3万
查看次数

用颜色填充自定义区域

如何用颜色填充选定区域?

var Rect: TRect;
    Color: TColor;
begin
  //fill area with color
end;
Run Code Online (Sandbox Code Playgroud)

delphi paint colors delphi-7 fill

4
推荐指数
1
解决办法
1万
查看次数

如何让我的应用程序运行时间?

如何找出自应用程序启动以来运行的时间?

delphi timer delphi-7

4
推荐指数
1
解决办法
1785
查看次数