Помогите с Selection в Memo.

← →
Sagrer (2003-11-04 19:37) [0]

В общем такой код

Procedure CheckSelection;
begin
//Проверялка селекта в меме текстофайла...
If MainF.TxtFileMemo.Focused = true then begin
If MainF.TxtFileMemo.SelLength > 0 then begin
If TextSelected = false then begin
TextSelected := true;
TextSelStart := MainF.TxtFileMemo.SelStart;
TextSelLength := Length(MainF.TxtFileMemo.Selection);
TextSelection := MainF.TxtFileMemo.Selection;
ApplyZapis;
end;
end
else begin
If TextSelected = true then begin
TextSelected := false;
ApplyZapis;
end;
end;
end;
end;

Вызывается это у меня OnMouseMove и OnKeyUp для Mamo.

Но Selection почемуто - всегда получается только первый символ из выделения... тоесть немогу получить длину выделенного текста :(...

Как мне ее узнать?

← →
Спрашивающий_ (2003-11-05 04:35) [1]

procedure TForm1.Button2Click(Sender: TObject);
begin
Text:=IntToStr(Length(Memo1.SelText));
end;

Помогите с Selection в Memo. Найти похожие ветки