Нажатие на строку в Memo

[PAVEL315]

Как назначить действие на клик по слову или строке в Memo?

[Stilet]

Ну это нужно в OnClick анализировать какое слово кликнуто
Ченить типа:

procedure TForm1.Memo1DblClick(Sender: TObject);
begin
caption:=Memo1.SelText;
end;

[mihali4]

procedure TForm1.Memo1Click(Sender: TObject);
var LineNum: integer;
begin
LineNum := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0);
//или LineNum := Memo1.Perform(em_LineFromChar, $FFFF, 0);
if LineNum=n then //если кликнута нужная строка, то...
....
end;