Форум: "Основная";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];
ВнизПолучение ширины текста в Memo Найти похожие ветки
← →
MBo (2002-01-11 15:28) [4]и правда. пока не разбирался.
вот еще вариант
procedure TForm1.Button2Click(Sender: TObject);
var
r,l,h: LongInt;
begin
l:=length(memo1.Lines.text);
while (l>0) and (memo1.lines.text[l]=#13) or
(memo1.lines.text[l]=#10) do dec(l);
r := memo1.Perform(messages.EM_POSFROMCHAR,l,0);
if r >= 0 then begin
h:=hiWord(r)+abs(memo1.Font.Height);
label1.caption := IntToStr(h);
end;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c