新手求解!delphi 设计中把Memo点击后出现的一闪一闪的一条竖线不要掉 cursor只是可以改变鼠标样子,但是点击还是会有那个一闪一闪的,怎么做才可以不要那条闪闪的竖线? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我还想问问,memo要是输下去之后会自动出现滚动条么?如果不会,设置一下会出现么?? 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; 滚动条只有需要出现时才自动出现,例如memo里有很多行,这些行高度加起来超过了memo的高度,那么就自动显示垂直滚动条,同理如果一行的宽度超过了memo的宽度,那么就自动显示水平滚动条。当然这个前提是你需要把memo的srollbar属性设为ssBoth,即水平和垂直滚动条都显示(当满足上面的条件),memo的srollbar属性的默认值是ssNone,即不水平垂直都不显示要在输入时显示滚动条就在memo按键事件设置procedure TForm1.mmo1KeyPress(Sender: TObject; var Key: Char);begin mmo1.ScrollBars:= ssBoth;end; 求带背景图片的发邮件示例 提个问题,如何判断一个串口是否正常运行(比如我突然拔掉串口的一端线) 请问能捕捉SocketConnection的连接错误事件吗 dbgrid问题 三层分布式结构中,ClientDateSet如何动态排序? 关于LISTVIEW的打印 何谓瘦客户端 要打印数据的条数是从文件中读出来的,这种情况应该如何去处理? 在本窗体内如何调用self.Create,重新建立过窗体? array of byte转string后,中文乱码 delphi调用C接口的dll库,参数不匹配问题。 我想用delphi做一个115网盘的客户端,求大神赐教
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;
memo的srollbar属性的默认值是ssNone,即不水平垂直都不显示要在输入时显示滚动条就在memo按键事件设置procedure TForm1.mmo1KeyPress(Sender: TObject; var Key: Char);
begin
mmo1.ScrollBars:= ssBoth;
end;