Как создать событие изменения размера для TLabel (TGraphicControl)

Я не думаю, что вы хотите получать уведомления об изменении размера потомка TLabel. Вместо этого вы хотите получить уведомление о сокращении текста. Я знаю, что они кажутся одинаковыми, но это не так - метка может быть шире текста, она могла быть WordWrap включена и т. Д. Кроме того, TCustomLabel потомки могут использовать несколько разных методов для рисования текста на основе тема / Vista / Aero свечение (они сводятся к DrawThemeTextEx и DrawText), поэтому вам нужно подключить в эту систему, чтобы точно знать, что делает текст, который он рисует, включая размер отображаемого текста.

Если вы используете не-Starter версию Delphi, взгляните на TCustomLabel исходный код в stdctrls.pas. Есть два интересных метода:

• TCustomLabel.AdjustBounds - здесь устанавливается ограничивающий прямоугольник, и он настраивается на перенос слов и т. Д. Это делается путем вызова (как и рисование) другого интересующего метода:
• TCustomLabel.DoDrawText - закрашивает текст и / или вычисляет ограничивающий текст прямоугольник с учетом эллипсов, обтекания и тому подобного. Внутренне он генерирует измененную строку, которая представляет собой фактически нарисованный текст. Другими словами, функциональность этого метода - это то, что говорит вам, подходит ли текст или нет.

Оба они dynamic, что семантически эквивалентно virtual, т. Е. Их можно переопределить.

DoDrawText, к сожалению, не возвращает окончательную текстовую строку, которую он рисует - если это так, вы можете переопределить ее, вызвать унаследованную версию и сравнить нарисованный текст с реальным текстом. Однако вы можете переопределить и заново реализовать его и сделать это самостоятельно. Используйте код VCL в качестве руководства (вам нужна эквивалентная функциональность, хотя вы не должны копировать ее напрямую, поскольку она принадлежит Embarcadero.) Поскольку версия вашего потомка dynamic будет вызываться AdjustBounds. В вашем коде, когда вы сокращаете текст, также установите флаг, что он был сокращен, или немедленно сгенерируйте подсказку. Вуаля. Вы точно знаете, когда его укоротили :)

Не могу придумать ничего лучше WM_WINDOWPOSCHANGED:

Отправляется в окно, размер, положение или место которого в Z-порядке изменились в результате вызова функции SetWindowPos или другой функции управления окнами.

Это выглядит идеально. Что вы имеете против его использования?

Я думаю, вам нужно переопределить метод AdjustBounds. Попробуйте использовать следующий код (просто создайте форму с TButton и TLabel и замените .pas этим кодом). В этом примере демонстрируется обнаружение изменения размера метки при изменении текста. Однако вам нужно будет создать свое собственное мероприятие.

unit unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TSizeNotifyLabel = class(TLabel)
  public
    procedure AdjustBounds; override;

end;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }

    SizeNotifyLabel: TSizeNotifyLabel;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation


procedure TSizeNotifyLabel.AdjustBounds;
begin
  inherited;
  form1.label1.caption := 'Width of Label:'+inttostr(form1.SizeNotifyLabel.Width);
end;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  SizeNotifyLabel.Caption := SizeNotifyLabel.Caption + ' Change My Size';
end;

procedure TForm1.FormCreate(Sender: TObject);

begin
  SizeNotifyLabel := TSizeNotifyLabel.Create(self);
  with SizeNotifyLabel do begin
    caption := 'Hello World';
    left := 10;
    top := 10;
    autosize := true;
    parent := self;
  end;

end;

end.

Вы можете просто переопределить Resize метод. Однако имейте в виду, что ваш код

if Canvas.TextWidth(Caption) > Width then

отличается от того, как TCustomLabel.DoDrawText определяет, когда рисовать эллипсы, поэтому вы можете получить неожиданные результаты.

Кроме того, рисование эллипсов может быть вызвано изменением шрифта, изменением настроек темы и, возможно, некоторыми другими событиями.