Mega Code Archive

 

Categories / Delphi / VCL

 

[] Memo içerisinde ctrl+a[select all] kullanma

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState) ; begin if (Key = Ord('A')) and (ssCtrl in Shift) then begin TMemo(Sender).SelectAll; Key := 0; end; end;