请教各位:MEMO1里面的文字如何才能实现CTRL+A全选呢?

Description of your first forum.

请教各位:MEMO1里面的文字如何才能实现CTRL+A全选呢?

帖子idragonet1 » 星期五, 2004年11月12日 19:18


请教各位:MEMO1里面的文字如何才能实现CTRL+A全选呢?复制和粘贴是可以的哦.
 
 
 

请教各位:MEMO1里面的文字如何才能实现CTRL+A全选呢?

帖子TangH921 » 星期五, 2004年11月12日 19:25


procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
   if (ssCtrl in shift) and (key =65) then
   begin
     Memo1.SelectAll;
   end;
end;

应该可以了
 
 
 

请教各位:MEMO1里面的文字如何才能实现CTRL+A全选呢?

帖子idragonet1 » 星期二, 2004年11月16日 07:44


ok