Правильная ссылка на эту страницу
http://az-design.ru/Support/SoftWare/Delphi/D3/SB38GetTextLen.shtml

Глава 38. TControl.GetTextLen

Метод GetTextLen

Затрагиваемые объекты Все элементы управления
Назначение Метод GetTextLen определяет размер текста элемента управления.
Объявление function GetTextLen: Integer;
Пример синтаксиса
procedure TForm1.Button2Click(Sender: TObject);
var
  MyBuffer: PChar;
  MyBufSize: Integer;

begin
  MyBufSize := Button1.GetTextLen;
  Button1.GetTextBuf(MyBuffer, MyBufSize);
  StatusBar1.SetTextBuf(MyBuffer);

end;
Описание GetTextLen обычно используется непосредственно перед вызовом GetTextBuf для того, чтобы можно было правильно установить буфер по размеру. Используйте GetTextLen вместо типичных строковых функций, подобных Length.
[Свойство Align] [Метод BeginDrag] [Свойство BoundsRect] [Метод BringToFront] [Свойство Caption] [Свойство ClientHeight] [Свойство ClientOrigin] [Свойство ClientRect] [Метод ClientToScreen] [Свойство ClientWidth] [Свойство Color] [Свойство ControlState] [Свойство ControlStyle] [Свойство Cursor] [Свойство DragCursor] [Метод Dragging] [Свойство DragMode] [Свойство Enabled] [Метод EndDrag] [Свойство Font] [Метод GetTextBuf] [Метод GetTextLen] [Свойство Height] [Метод Hide] [Свойство Hint] [Метод Invalidate] [Свойство Left] [Событие OnClick] [Событие OnDblClick] [Событие OnDragDrop] [Событие OnDragOver] [Событие OnEndDrag] [Событие OnMouseDown] [Событие OnMouseMove] [Событие OnMouseUp] [Событие OnStartDrag] [Свойство Parent] [Свойство ParentColor] [Свойство ParentFont] [Свойство ParentShowHint] [Свойство PopupMenu] [Метод Refresh] [Метод Repaint] [Метод ScreenToClient] [Метод SendToBack] [Метод SetBounds] [Метод SetTextBuf] [Метод Show] [Свойство ShowHint] [Свойство Text] [Свойство Top] [Метод Update] [Свойство Visible] [Свойство Width]

<<< Пред. Оглавление
Начало раздела
След. >>>




Дата последнего изменения:
Thursday, 21-Aug-2014 09:10:56 MSK


Постоянный адрес статьи:
http://az-design.ru/Support/SoftWare/Delphi/D3/SB38GetTextLen.shtml