delphi 7では、選択したテキスト属性をTMemoで太字に変更するにはどうすればよいですか？

Question

複数の行を表示できるようにTMemoを使用します。

ショートカットCtrl + Bを使用して、TMemoの選択したテキスト属性を太字に変更したいとします。

たとえば、ユーザーは「こんにちは、元気？」と入力します。 Tmemoでは、ユーザーが「How」を選択してCtrl + Bを押すと、そのTMemoの太字で「How」のみが表示されます。

私はDelphi 7を使用しています。

解答を得るには助言を受けてください。手伝ってくれてありがとう。

Answer 1

メモコントロールでテキストの書式を設定することはできません。豊富な編集コントロール、TRichEditが必要です。

は、現在の選択を太字にするためには、あなたがこれを行う：

RichEdit.SelAttributes.Style := RichEdit.SelAttributes.Style + [fsBold]; 

をCTRL + Aのようなショートカットに応じてコードを呼び出すための好ましい方法は、アクションを使用することです。フォームにTActionListを追加し、そのアクションリストにアクションを追加します。アクションのOnExecuteイベントハンドラを、選択したテキストの太字を実行するコードを指すように設定します。 ShortcutプロパティをCtrl+Aに設定します。アクションを使用すると、ユーザーイベントの制御を一元管理できます。通常は、同じアクションを実行するツールボタン、メニューアイテム、およびコンテキストメニュー項目もあります。これはアクションが独自のものになります。

Answer 2

ここでは、RichEditを使用するプログラムの一部です。行の一部が黒で表示され、青で部分的に太字で表示されます。 'Text'はRichEditのフィールドです。

procedure TWhatever.InsertText (const atext, btext, ctext: string); 
begin 
with RichEdit1 do 
    begin 
    selstart:= length (text); 
    sellength:= 0; 
    SelAttributes.Color:= clBlack; 
    seltext:= '[' + atext + '] '; 

    selstart:= length (text); 
    sellength:= 0; 
    SelAttributes.Color:= clBlue; 
    seltext:= btext + ' '; 

    if ctext <> '' then 
    begin // trap non-existent answers 
    selstart:= length (text); 
    sellength:= 0; 
    SelAttributes.Color:= clRed; 
    SelAttributes.Style:= [fsBold]; 
    seltext:= ctext + ' '; 
    SelAttributes.Style:= []; 
    end; 
    lines.add (''); // new line 
    end; 
end;