delphi-7 - 在编辑控件中,如何显示输入新文本时消失的半透明文本?
问题描述
我做了以下代码,但有些东西不起作用。
unit Unit9;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, ExtCtrls;
type
TForm9 = class(TForm)
edt1: TEdit;
procedure FormCreate(Sender: TObject);
end;
var
Form9: TForm9;
const
EM_SETCUEBANNER = $1501;
implementation
uses
Unit2;
{$R *.dfm}
procedure TForm9.FormCreate(Sender: TObject);
var
Banner: String;
buf: array [0..$ff] of Char;
begin
Banner := UTF8Encode('Введите логин');
Utf8ToUnicode(PWideChar(@buf), PAnsiChar(Banner), Length(Banner));
SendMessage(edt1.Handle, EM_SETCUEBANNER, 0, Integer(@buf));
end;
end.
例如,在某些网站上,编辑控件会显示“登录”,直到写入内容。
解决方案
推荐阅读
- azure - Azure 加密磁盘
- reactjs - 无法更新使用 github-pages 发布的反应应用程序的内容
- javascript - 正则表达式:匹配 MSSQL 连接字符串中的密码,考虑引号换行
- javascript - 升级后无法构建ios react native app?
- windows - 合并多个文件夹中的所有 txt 文件或将所有文件放入一个文件夹中
- datetime - Google Sheets 宏 setValue 更改日期值
- reactjs - 有条件地返回 react-router 路由的 TypeScript 函数
- python - 如何用列表解决这个任务?
- string - Groovy:replaceLast() 丢失
- angular - Ionic 4 Production Build - 未加载运行时编译器错误