5,379
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.RichEdit1Change(Sender: TObject);
var
s:string;
w:Integer;
dc:HDC;
size:TSize;
begin
s := Self.RichEdit1.Lines.Strings[RichEdit1.Lines.Count-1];
dc := GetDC(RichEdit1.Handle);
GetTextExtentPoint(dc,PAnsiChar(s),Length(s),size);
w := size.cx;
if w > RichEdit1.Width then
begin
ShowMessage('ok');//这里回车
end;
end;
procedure TForm1.RichEdit1Change(Sender: TObject);
var
s:string;
w:Integer;
dc:HDC;
size:TSize;
begin
s := Self.RichEdit1.Lines.Strings[RichEdit1.Lines.Count-1];
dc := GetDC(RichEdit1.Handle);
GetTextExtentPoint(dc,PAnsiChar(s),Length(s),size);
w := size.cy*RichEdit1.Lines.Count;
if w > 200 then
begin
ShowMessage('ok');//这里可以做个全局标记,那样在会车时,判断这个标记
end;
end;