نقل قول: تشخیص ctrl+c /ctrl+v
میتونید از کدی مثل زیر استفاده کنید:
void __fastcall TForm1::Edit1KeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{
if ( Shift.Contains(ssCtrl ) )
{
if ( ( Key == int ( 'a' ) ) || ( Key == int ( 'A' ) ) )
ShowMessage ( "Ctrl+A" );
if ( ( Key == int ( 'c' ) ) || ( Key == int ( 'C' ) ) )
ShowMessage ( "Ctrl+C" );
if ( ( Key == int ( 'v' ) ) || ( Key == int ( 'V' ) ) )
ShowMessage ( "Ctrl+V" );
if ( ( Key == int ( 'w' ) ) || ( Key == int ( 'W' ) ) )
ShowMessage ( "Ctrl+W" );
}
}
نقل قول: تشخیص ctrl+c /ctrl+v
یک دنیا سپاس از لطف و بزرگواریتونپاینده و تندرست باشید جاودانه