16,747
社区成员




procedure TForm1.mmo1KeyPress(Sender: TObject; var Key: Char);
begin
mmo1.ScrollBars:= ssBoth;
end;
type
TForm1 = class(TForm)
mmo1: TMemo;
procedure mmo1Enter(Sender: TObject);
public
{ Public declarations }
procedure WndProc(var m:TMessage);override; // orverrid 窗口过程
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
// memo 的 OnEnter 事件
procedure TForm1.mmo1Enter(Sender: TObject);
begin
PostMessage(Handle, WM_APP, 0, mmo1.Handle);
end;
procedure TForm1.WndProc(var m: TMessage);
begin
inherited;
if m.Msg = WM_APP then
HideCaret(Cardinal(m.lParam));
end;