¿Bug, o es algo normal?

[Peri]

Que alguien me explique qué está pasando porque no lo entiendo.

Tendo un Edit y tres botones (copiar, borrrar y pegar). El botón de copiar sólo tiene este código:

procedure TForm1.Button5Click(Sender: TObject);
begin
  Edit6.CopyToClipboard;//copiamos al portapapeles
  Edit6.SetFocus;  //y damos el foco al edit
end;

El botón de borrar lo mismo pero con el método Edit6.ClearSelection; y el botón de pegar lo mismo pero con el método Edit6.PasteFromClipboard.

Ocurre que sin haber seleccionado nada del texto escrito en el edit, si le doy al botón de copiar y luego le doy al de pegar, se pega del portapapeles lo siguiente:

Edit6.PasteFromClipboard;

Si le doy al botón de borrar sin haber seleccionado nada, ocurre lo mismo. Es decir dando al botón de copiar o borrar sin haber seleccionado nada se pega en el portapapeles lo anterior.

Alquien sabe qué está pasando? ¿Es normal?

Gracias

[[egostar]]

En tu código eso es algo normal

No es un bug, mas bien no estas haciendo las cosas correctamente

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.SelectAll;
  Edit1.CopyToClipboard;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit2.Clear;
  Edit2.PasteFromClipboard;
end;

Salud OS

[[coso]]

bueno, probablemente la ultima linea que tu has copiado mientras escribias era precisamente esa el clipboard es de Windows, no es independiente de tu aplicacion.

saludos

[Peri]

Qué despiste! Tienes rezón coso, se copiaba lo que ya había en el portapapeles.

Y en cuanto al código, egostar, está bien así: si hay algo señalado en el edit lo copio y luego le doy el foco para que siga en él cuando pulso el botón de copiar, que es lo que quería hacer.

Siento las molestias por el despiste y gracias a todos