Вопрос по TLabel

[Mzg170]

Существует ли какой-нибудь относительно несложный способ определения символа или слова в Label, находящегося по координатам, возвращаемым событием OnMouseDown?
Иными словами, стоит задача определения слова из текста в Label, по которому кликнул пользователь.

[northener]

стоит задача определения слова из текста в Label

В TLabel нет ни слов, ни текста. TLabel это картинка.

[Mzg170]

Сообщение от northener

В TLabel нет ни слов, ни текста. TLabel это картинка.

Имел в виду TLabel.Caption, конечно же.

[northener]

Сообщение от Mzg170

Имел в виду TLabel.Caption, конечно же.

Я понял что вы имели в виду. Но у TLabel нет своего окна, чей текст можно было бы получить стандартными средствами WinAPI. Это просто рисунок на канве парента.

[Аватар]

Все можно. Если речь о Label непосредственно на форме, то см. код ниже. Для Label в контейнерах все сильно посложней будет

  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
  private
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
  public
  end;

...

procedure TForm1.CMMouseEnter(var Message: TMessage);
begin
  inherited;
  if TControl(Message.LParam) is TLabel then Caption:=TLabel(Message.LParam).Caption
                                        else Caption:='Не Label';
end;

Запоминать например в строковую переменную, а в OnMouseDown её использовать

[Mzg170]

Сообщение от Аватар

Запоминать например в строковую переменную, а в OnMouseDown её использовать

Тогда уж прямо в OnMouseDown Label'а можно использовать TLabel(sender).Caption, вопрос в том, как определить на каком символе этого caption был совершен клик мышью.

[Аватар]

Тоды да. Это я не в ту степь. Координаты мыши и Label есть. Фонт и его размеры есть. Остается вычислить на какой букве клик используя что нибудь типа GetTextMetrics и/или GetTextExtentPoint32

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var s,s1: String;
    i,k: Integer;
    Size: TSize;
begin
  if not (Sender is TLabel) then Exit;
  s:=''; s1:='';
  for i:=1 to Length(TLabel(Sender).Caption) do begin
    s:=s+TLabel(Sender).Caption[i];
    if TLabel(Sender).Caption[i]=' ' then s1:='' else s1:=s1+TLabel(Sender).Caption[i];
    GetTextExtentPoint32(TLabel(Sender).Canvas.Handle,PChar(s),Length(s),Size);
    if Size.cx>=X then begin
      for k:=i+1 to Length(TLabel(Sender).Caption) do
        if TLabel(Sender).Caption[k]=' ' then Break else s1:=s1+TLabel(Sender).Caption[k];
      Label2.Caption:=s1;
      Exit;
    end;
  end;
end;

[Mzg170]

Немного модифицировал, чтобы отрабатывались многострочные Label и переносы строки:

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var s,s1: String;
    LastSpacePos,StrNum, _StrNum,i,k: Integer;
    Size: TSize;

begin
  if not (Sender is TLabel) then Exit;
  s:=''; s1:='';
  GetTextExtentPoint32(TLabel(Sender).Canvas.Handle,TLabel(Sender).Caption,Length(TLabel(Sender).Caption),Size);
  StrNum:=(Y div Size.cy)+1;
  _StrNum:=1;
  LastSpacePos:=0;
  for i:=1 to Length(TLabel(Sender).Caption) do
   begin
    s:=s+TLabel(Sender).Caption[i];
    if (TLabel(Sender).Caption[i]=' ')or(TLabel(Sender).Caption[i]=#13)or(TLabel(Sender).Caption[i]=#10) then
      begin
       LastSpacePos:=i;
       s1:='';
      end
    else s1:=s1+TLabel(Sender).Caption[i];
    GetTextExtentPoint32(TLabel(Sender).Canvas.Handle,PChar(s),Length(s),Size);
    if (Size.cx>TLabel(Sender).Width)or(TLabel(Sender).Caption[i]=#13) then
      begin
        inc(_StrNum);
        s:=copy(TLabel(Sender).Caption,LastSpacePos+1,i-LastSpacePos);
        s1:=s;
        Continue;
      end;
    if (Size.cx>=X)and(_StrNum=StrNum) then
      begin
          for k:=i+1 to Length(TLabel(Sender).Caption) do
            if (TLabel(Sender).Caption[k]=' ')or (TLabel(Sender).Caption[k]=#13) then Break else
              begin
                s1:=s1+TLabel(Sender).Caption[k];
              end;
          Label2.Caption:=s1;
          Exit;
     end;
   end;
end;