房产网站建设方案,企业网站源码怎么用,在重庆_那里可以做诚信网站认证,用dw做红米网站修复TDBMemo只读不能使用Ctrl+C复制文字的BugTDBMemo只读时不能使用Ctrl+C复制文字，只需按下面修改就可以。打开lazarus\lcl\include\dbmemo.inc找到：procedure TDBMemo.KeyDown(var Key: Word; Shift: TShiftState)… 修复TDBMemo只读不能使用Ctrl+C复制文字的Bug TDBMemo只读时不能使用Ctrl+C复制文字，只需按下面修改就可以。打开lazarus\lcl\include\dbmemo.inc找到：procedure TDBMemo.KeyDown(var Key: Word; Shift: TShiftState); begin inherited KeyDown(Key, Shift);case key ofVK_ESCAPE:begin//cancel out of editing by reset on escFDataLink.Reset;SelectAll;Key := VK_UNKNOWN;end;VK_DELETE, VK_BACK:添加红色代码：procedure TDBMemo.KeyDown(var Key: Word; Shift: TShiftState); beginif (Shift = [ssCtrl]) and (Key = Ord('C')) and (SelLength 0) thenbeginClipboard.AsText := SelText;Key := 0;end;inherited KeyDown(Key, Shift);case key ofVK_ESCAPE:begin//cancel out of editing by reset on escFDataLink.Reset;SelectAll;Key := VK_UNKNOWN;end;VK_DELETE, VK_BACK:重新编译应用就可以在只读时使用Ctrl+C复制文字。