🚀 go-pugleaf

$B:d0f$G$9!#(B

# API$B$K4XO"$G$9$N$G!"(Bfj.os.ms-windows.programming $B$KN.$7!"(B
# Followup-to$B$b$=$A$i$K$7$^$9!#(B

In article <01bc480e$4aafaba0$LocalHost@default>, $BD9>B(B $BMN(B $B$5$s(B wrote:
>Delphi $B$G%W%m%0%i%_%s%0$r;O$a$F$^$@?tF|$N=i?4<T$G$9!#(B
>$B$A$g$C$H$o$+$i$J$$$3$H$,=P$F$-$?$N$G!"$A$g$C$H$*J9$-$7$?$$$s$G$9$,!%!%!%(B
>
>$BN}=,$,$F$i!"%j%C%A%F%-%9%H%3%s%]!<%M%s%H$rMQ$$$?4JC1$J%(%G%#%?$rAH$s$G$$$^(B
>$B$9!#(B
>$B$=$NCf$G!"$I$&$7$F$b8=:_$N!J%j%C%A%F%-%9%HFb$G$N!K%+!<%=%k0LCV!JNs$H9T!K$,(B
>$BCN$j$?$/$J$j$^$7$?!#(B
>$B$=$N<hF@J}K!$,J,$+$kJ}$,$$$i$7$?$i!"$I$&$+65$($F$b$i$($J$$$G$7$g$&$+!)(B
>

$B$9$G$K2r7h$7$F$$$k$+$b$7$l$^$;$s$,!&!&!&!"(B

var
  LineNo: LongInt;  // $B9T(B
  Column: LongInt;  // $B7e(B

begin
  with RichEdit1 do
  begin
    LineNo := SendMessage(Handle, EM_LINEFROMCHAR, SelStart, 0);
    Column := SelStart - SendMessage(Handle, EM_LINEINDEX, LineNo, 0);
  end;
end       

$B$G2DG=$G$9!#(B

-- 
$BEl<G#A#V#E!J3t!K(B      $B:d0f?-G7(B
sakai@eecmja.eec.toshiba.co.jp