Ширина первой строки Мемо в пикселях

[Utkin]

Мне нужно программно определить, что ширина Мемо стала равна ширине текста (в приложении ширина Мемо меняется по определенным правилам). Цель - чтобы Мемо всегда отображал первую строку (то есть надо сравнивать её ширину с текущей шириной Мемо). Так вот как определить ширину первой строки?

[evg_m]

type 
  TMemoCanvas =class(TMemo) // чтобы получить доступ к protected Canvas
  end;

teststr:='узнать ширину этой строки';
w:=TMemoCanvas(Memo1).Canvas.TextWith(teststr);

[Человек_Борща]

Ого, интересные у вас методы. Так можно без создания класса TMemoCanvas?

[Utkin]

Так можно без создания класса TMemoCanvas?

В некоторых случаях для вызова методов можно и без инициализации. На практике уточню, подходит ли конкретно для данного случая.

--ДОБАВЛЕНО:----
Делфи жалуется что у Мемо1 нету канваса

[Аватар]

Можно и без TMemoCanvas, загнав фонт мемо в объект с доступным канвас. Но длиннее

var BitMap: TBitMap;
begin
  BitMap:=TBitMap.Create;
  BitMap.Canvas.Font.Assign(Memo1.Font);
  Label1.Caption:=IntToStr(BitMap.Canvas.TextWidth('Какая у меня ширина?'));
  BitMap.Free;
end;

[Utkin]

Короче я решил просто:
а) использовать моноширинный шрифт (ну где буквы одинаковой толщины)
б) тупо умножать размер шрифта+1 (1 это межбуквенное расстояние) на количество символов

[evg_m]

Так можно без создания класса TMemoCanvas?

Мы его и не создаем, мы только объявляем и "приводим" стандартный TMemo к его прямому наследнику TMemoCanvas, являющемуся точной копией, с целью использовать доступ к protected свойствам.