604
社区成员
发帖
与我相关
我的任务
分享帮我把这段代码译成bcb的
procedure TMyMemo.WMLButtonDown(var Message: TWMLButtonDown);
var
Ch : Integer;
begin
if SelLength > 0 then begin
Ch := LoWord(Perform(EM_CHARFROMPOS,0,
MakeLParam(Message.XPos,Message.YPos)));
LastSelStart := SelStart;
LastSelLength := SelLength;
if (Ch >= SelStart) and (Ch <= SelStart+SelLength-1) then
BeginDrag(True)
else
inherited;
end
else
inherited;
end;
var
Ch : Integer;
begin
if SelLength > 0 then begin
Ch := LoWord(Perform(EM_CHARFROMPOS,0,
MakeLParam(Message.XPos,Message.YPos)));
LastSelStart := SelStart;
LastSelLength := SelLength;
if (Ch >= SelStart) and (Ch <= SelStart+SelLength-1) then
BeginDrag(True)
else
inherited;
end
else
inherited;
end;
...全文
请发表友善的回复…
发表回复
cswo 2004-02-02
- 打赏
- 举报
是API，自己搞定，请帮竹帮结贴。
cswo 2004-02-02
- 打赏
- 举报
LoWord()
MakeLParam()
这两个是干什么用的？
MakeLParam()
这两个是干什么用的？
RamjetZhang 2004-02-02
- 打赏
- 举报
少了个END；？
cswo 2004-02-02
- 打赏
- 举报
菜鸟，对不起，这两句看不懂
Ch := LoWord(Perform(EM_CHARFROMPOS,0,
MakeLParam(Message.XPos,Message.YPos)));
Ch := LoWord(Perform(EM_CHARFROMPOS,0,
MakeLParam(Message.XPos,Message.YPos)));
yuanhen 2004-02-02
- 打赏
- 举报
学BCB，这么简单的delphi都看不懂？？？
