안녕하세요
두개의 RichEdit에 각각 다른 파일를 불러놓고 비교 좀하려고 하는데...
물론 두개의 파일일은 비슷한데 틀린 곳을 찾고 싶어서
UEdit라는 Edit Program이 있지만 Bin 파일은 비교가 않되어서 .....
질문의 요지는 한쪽의 RichEdit에 Mouse를 누르면 다른쪽의 RichEdit의 커서가
같은 위치로 이동 시키고 싶은데 그것이 않됩니다.
procedure TformCompList.reFirstFileMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if (Button = mbLeft) then
begin
reSecondFile.SelStart := reFirstFile.SelStart;
reSecondFile.SelLength:= reFirstFile.SelLength;
end;
end;
procedure TformCompList.reSecondFileMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if (Button = mbLeft) then
begin
reFirstFile.SelStart := reSecondFile.SelStart;
reFirstFile.SelLength:= reSecondFile.SelLength;
end;
end;
이렇게 하면 될줄알았는데 잘 않뎬超봇?
잘 않되더군요.
고수님들 좀 풀어 주세요
|