TEdit, evitar copiar y pegar

[[Lepe]]

Madre del amor hermoso, usando labels y Gotos.... creo que me da algo...

Código Delphi [-]
procedure TF_LoginNewReg.MiWindowProc(var Message: TMessage);
begin
  case Message.Msg of
    WM_COPY, WM_PASTE:
      begin
    ShowMessage('No se puede realizar la operación solicitada');
    Casillero.Clear;

      end
    else // Si no es ninguno de los anterios llamamos al antiguo WndProc
      AntWindowProc(Message);
  end;
end;

jejeje, creo que mejor así. Saludos

[casacham]

Como dice el titulo, se agradece la simplificacion

De hecho, los goto(s) y Label(s) los implemente debido a que es un viejo recuerdo de aquel primer lenguaje con que me inicie en este mundo de programar, GWBasic, si aunque no lo creas Lepe, y es algo de retorica utilizarlo. De hecho lograba cosas importantes, hasta me estaba introduciendo en el mundo de las base de datos, algo que me resultaba muy complejo en el año 1992 cuando estaba mas avanzado ya en QBasic. Luego me intereso Visual Basic. Pero cuando un amigo con el que vivia en mis años de universidad me enseño Delphi 4.0, pues, si te das cuenta, es lo que mejor he aprendido y el lenguaje que mejor se adapta a muchas necesidades, no quiero pecar de ignorante y llamarlo el mejor Lenguaje. En estos momentos tengo una version "demo" de Delphi 2007, y la verdad que Visual Basic ya ni me interesa, lo lamento por VB.

[[Lepe]]

Sólo por el mero hecho de usar Goto y label es obvio que llevas bastante tiempo en esto de la programación.

Yo los usé muy poco, hasta que leí un comentario sobre unos conceptos extraños llamados "programación estructurada" donde decía que era mala práctica el uso del Goto y label, porque se perdía el "orden de la programación", se enrevesaba todo y no se sabía cómo funcionaba el motorcillo creado.

Ya digo, sólo puedo hablar por lo dicho en libros.

Ahora si tengo que hacer algo similar....

Código Delphi [-]
procedure Uno;

var 
     i:integer;

  procedure procLoca_a_Uno;
  begin
  end;

begin // Uno

end;

Según veo en muchos códigos actuales, es una práctica vigente. No se puede decir lo mismo de los Goto, que se desaconseja el uso.

Curioso lo de VB, yo comparé VB5 vs D3 y Delphi ganó por goleada, aún siendo 2 versiones atrás.

Saludos