W
wuyi
Unregistered / Unconfirmed
GUEST, unregistred user!
当用代理上网时，用TWebBrowser作浏览窗口时，第一次启动总
是要求输入用户名／口令，不知如何通过编程实现自动输入？
另外，我想让TToolButton用鼠标点击时切换 按下／弹起 ,用
下面的代码点左键时不行，用右键可以，但我想用左键。
procedure TMainForm.ShowImageMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if showImage.Down then
showImage.Down := false
else
showImage.Down := true;
end;
是要求输入用户名／口令，不知如何通过编程实现自动输入？
另外，我想让TToolButton用鼠标点击时切换 按下／弹起 ,用
下面的代码点左键时不行，用右键可以，但我想用左键。
procedure TMainForm.ShowImageMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if showImage.Down then
showImage.Down := false
else
showImage.Down := true;
end;