メモコンポーネントなどから、HTML形式のタグを選択します。
要は<から>までを選択します。タグ以外の部分の場合、
タグからタグまでの範囲を選択します。
ダブルクリック時などに使えば便利かと思います。
ただ、SelStartプロパティをどこかに取っておく必要があるです。



//ｷｬﾚｯﾄ位置からﾀｸﾞを選択する------------------------------------------------
procedure SelectTag(Sel: Integer); //Selはｷｬﾚｯﾄ位置(SelStartの値)
var
  Memo: TMemo; //対象となるﾒﾓｺﾝﾎﾟｰﾈﾝﾄ
  S: String;
  nStart,nEnd: Integer;
begin
  Memo := Memo1;

  Memo.SelStart := Sel;
  Memo.SelLength:= 0;
  if Copy(Memo.Lines.Text, Sel+1, 1) = '>' then
    S := Copy(Memo.Lines.Text, 1, Sel)    // S := ｷｬﾚｯﾄより左側の文字列
  else
    S := Copy(Memo.Lines.Text, 1, Sel+1); // xxx|<Tag> という場合に <Tag>を選
                                          //択できるように１文字多くとる

  nStart := LastDelimiter('<>', S);
  if nStart > 0 then begin
    if S[nStart]='<' then begin
      //ｷｬﾚｯﾄより左の'<'を見つけたぞ
      // S := ｷｬﾚｯﾄより右側の文字列
      S := Copy(Memo.Lines.Text, Sel+1, Length(Memo.Lines.Text));
      nEnd := Pos('>', S);
      if nEnd > 0 then begin
        //ｷｬﾚｯﾄより右の'>'を見つけたぞ
        nEnd := nEnd + Sel;
        Memo.SelStart := nStart - 1;
        Memo.SelLength:= nEnd - nStart + 1;
      end;
    end
    else
    if S[nStart]='>' then begin
      //これは、ﾀｸﾞじゃなくて文字列だなっ
      // S := ｷｬﾚｯﾄより右側の文字列
      S := Copy(Memo.Lines.Text, Sel+1, Length(Memo.Lines.Text)); 
      nEnd := Pos('<', S);
      if nEnd > 0 then begin
        //ｷｬﾚｯﾄより右の'<'を見つけたぞ
        nEnd := nEnd + Sel;
        Memo.SelStart := nStart;
        Memo.SelLength:= nEnd - nStart - 1;
      end;
    end;
  end;
end;

============================================================================
Ｋａｚ　16:02 98/03/02

Original document by Ｋａｚ／Ｉｎａ  氏 ID:(KGH10462)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。