با سلام مجدد ، جواب سوالمو پیدا کردم و جوابش رو هم میذارم شاید به درد کسی بخوره
uses
StdCtrls;
type
TMemo = class(StdCtrls.TMemo)
private
procedure WMKeyDown(var Message: TWMKeyDown); message WM_KEYDOWN;
end;
TForm1 = class(TForm)
Memo1: TMemo;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
const
KD_IS_EXTENDED = 1 shl 24;
procedure TMemo.WMKeyDown(var Message: TWMKeyDown);
begin
if (Message.CharCode=VK_RETURN) And ((KD_IS_EXTENDED and Message.KeyData) <> 0) Then
begin
عملیات مورد نظرتون
Exit;
end;
inherited;
end;
فکر نمیکردم انقدر راحت باشه