TMemo

最新推荐文章于 2021-12-07 14:39:09 发布

小小de巫师

最新推荐文章于 2021-12-07 14:39:09 发布

阅读量1k

点赞数

分类专栏： Delphi Xe3 文章标签： TMemo Memo

本文链接：https://blog.csdn.net/gfuchao/article/details/8923487

版权

Delphi Xe3 专栏收录该内容

28 篇文章 0 订阅

订阅专栏

//全选功能
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  If (Shift = [ssCtrl]) And (Key = 65) then
    Memo1.SelectAll;
end;

//鼠标点击指定行,显示指定行数据
procedure TForm1.Memo1Click(Sender: TObject);
Var
  LineY, LineX: Integer;
  S: WideString;
begin
  LineY := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0);
  LineX := SendMessage(Memo1.Handle, EM_LINEINDEX, LineY, 0);
  S := Memo1.Lines.Strings[LineY];
  Showmessage(S);
end;

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (Shift = [ssAlt]) And (Key = $53) then  //Alt+S
  Begin
    Showmessage(Memo1.Text);
  End;
end;