请教各位网友,问个Delphi下DDE的问题(0分)

  • 主题发起人 主题发起人 netbug
  • 开始时间 开始时间
N

netbug

Unregistered / Unconfirmed
GUEST, unregistred user!
一:TEdit的PasswordChar属性值不为#0时,无法使用edit1.CopyToClipboard以及
edit1.CutToClipboard这两个命令,有没有什么办法使得当TEdit的PasswordChar
属性值仍然不为#0时,但可以使之复制到剪贴版?
二:我们在用拨号连接时,当输入口令时,右击时没有发现复制选项,有没有
办法使之复制到剪贴版?
谢谢。
 
1
var
pName: PChar;
pName := StrAlloc(128);
SendMessage(Edit1.Handle, WM_GETTEXT, 127, Integer(pName));
 
2
看了关于1的回答,应该知道2的答案了吧.
找到拨号连接中密码输入框的句柄...
 
xWolf, 对不起,我是个Dephi的初学者,看了您的贴子,我还是搞不清,请看下例:

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var PName:PChar;
begin
PName:=StrAlloc(128);
SendMessage(Edit1.Handle, WM_GETTEXT, 127, Integer(pName));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.PasteFromClipboard;
end;

我不知如何得到密码,请赐教。
另外:我用Delphi的帮助没有得到SendMessage、Edit1.Handle、WM_GETTEXT等,
您能不能告诉我这些用法?
谢谢。


 
密码放在Edit1?
直接Edit1.Text就是了密码了

copy to clipboard?

Clipboard.AsText:=Edit1.Text
 
对于问题1,如Pipi.所述,
Edit2.Text := '';
Edit2.PasteFromClipboard;
 
接受答案了.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
559
import
I
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部