如何使TMEMO的光标所在行显示高亮并能得到此被选行的行号？

[jsmicrofox]

如何使TMEMO的光标所在行显示高亮并能得到此被选行的行号？

多谢！

[sysu]

取得行、列号，高亮的话要用TRichEdit。
var
row, col: Integer;
begin
row := SendMessage(memo1.Handle, EM_LINEFROMCHAR,
memo1.SelStart, 0);
col := memo1.SelStart -
SendMessage(memo1.Handle, EM_LINEINDEX, row, 0);
Inc(row); // 行号
Inc(col); // 列号
ShowMessage(Format('%d 行 %d列',[row, col]));
end;

用RichEdit设置高亮：
procedure TForm1.Button1Click(Sender: TObject);
var
row, i, cnt: Integer;
begin
// 取得当前行号
row := SendMessage(RichEdit1.Handle, EM_LINEFROMCHAR,
RichEdit1.SelStart, 0);
cnt := 0;
for i := 0 to row-1 do cnt := cnt + Length(RichEdit1.Lines[i])+2;
RichEdit1.SelStart := cnt;
RichEdit1.SelLength := Length(RichEdit1.Lines[row]);
RichEdit1.SelAttributes.Color := clRed; // 设为红色
end;

[leaf_zhy]

为什么不用ListBox

[jsmicrofox]

listbox怎么用？

[xzgyb]

unit Unit1;

interface

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

type
TMainForm = class(TForm)
Memo1: TMemo;
Label1: TLabel;
procedure Memo1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.Memo1Click(Sender: TObject);
var
CurLine: Integer;
LineCharIndex: Integer;
begin
LineCharIndex := SendMessage(Memo1.Handle, EM_LINEINDEX, -1, 0);
CurLine := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, LineCharIndex, 0);
Memo1.SelStart := LineCharIndex;
Memo1.SelLength := SendMessage(Memo1.Handle, EM_LINELENGTH, LineCharIndex, 0);
Label1.Caption := IntToStr(CurLine);
end;

end.

[frogshero]

用memo也可以《D5开发人员指南》里有，要子类化