用Panel,背景白色,设边框,看起来和TEdit一样
解决方案 »
- 如何将EDIT中的字符串写入EXE文件????
- 关于DELPHI逻辑运算的符的问题
- ★关于“错误信息”的捕捉问题???
- 最有趣的微軟BUG,還有其它好玩的嗎
- &&&&HELP&& listitem 是怎么create?
- 我用access做的delphi6.0程序怎样才能在没有安装dephi的机子上运行?直接把运行程序复制过去,建立了odbc连接,运行不了?
- 不超过20行, 帮忙看下这段代码哪里有问题. Winsock类. 在线结贴.
- ADoTable问题!!!!!
- 小妹有一问题,过来看看吧。
- delphi下采用深圳鼎铭公司的语音卡开发客户服务中心
- delphi开发淘宝客户端例程
- SPY++抓到的这两条消息是什么消息阿?
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
edt1: TEdit;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
OldWndProc: TWndMethod;
procedure NewWndProc(var m: TMessage);
end;var
Form1: TForm1;implementation{$R *.dfm}{ TForm1 }procedure TForm1.NewWndProc(var m: TMessage);
begin
// 滤掉 WM_SETFOCUS 消息
if m.Msg <> WM_SETFOCUS then
OldWndProc(m);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
// 接管 edt1 的窗口过程
OldWndProc := edt1.WindowProc;
edt1.WindowProc := NewWndProc;
end;end.
光标是没有了,但是焦点还在,
如何让edit只起lable的作用?
已经是True了,但是还有焦点;
procedure TForm1.FormCreate(Sender: TObject);
begin
// 加一句
SetWindowLong(edt1.Handle, GWL_STYLE,
GetWindowLong(edt1.Handle, GWL_STYLE) or WS_EX_NOACTIVATE);
// 接管 edt1 的窗口过程
OldWndProc := edt1.WindowProc;
edt1.WindowProc := NewWndProc;
end;
感谢,问题基本解决,不过有个问题,
我有20个edit,每个都要这么干?
有简单批量的方法?
var
i: Integer;
edit: TEdit;
begin
for i := 0 to ControlCount - 1 do
begin
if Controls[i] is TEdit then
begin
edit := Controls[i] as TEdit;
SetWindowLong(edit.Handle, GWL_STYLE,
GetWindowLong(edit.Handle, GWL_STYLE) or WS_EX_NOACTIVATE);
end;
end;
end;
非常感谢sololie 大侠。。