He aquí al culpable:
Código Delphi
[-]
procedure TEditDelete.UpdateTarget(Target: TObject);
begin
Enabled := GetControl(Target).SelLength > 0;
end;
Agrego:
Y me atrevería a afirmar que es así, "por diseño":
Cita:
|
In TEditDelete, UpdateTarget checks whether the current target object (specified by the Target parameter) is an edit control that has some of its text selected. If so, UpdateTarget sets Enabled to true. If not, UpdateTarget sets Enabled to false.
|
Referencia
// Saludos