Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 29-07-2004
[digital] digital is offline
Miembro Premium
 
Registrado: jun 2003
Posts: 26
Poder: 0
digital Va por buen camino
Question Explicacion Copy Paste Undo de Clipboard

hola listero...
quien me puede explicar como funcion el Copy paste Undo de Clipboard..

tengo una pantalla que contiene 5 Edit y quiero hacer un menu de Edicion donde contenga Copiar,Pegar,Seleccionar,cortar... en los edit...
Responder Con Cita
  #2  
Antiguo 29-07-2004
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Pero, ¡un Edit ya tiene un menú con tales opciones!

Responder Con Cita
  #3  
Antiguo 29-07-2004
[digital] digital is offline
Miembro Premium
 
Registrado: jun 2003
Posts: 26
Poder: 0
digital Va por buen camino
pero quiero poner estas opcione en un menu principal.
Responder Con Cita
  #4  
Antiguo 29-07-2004
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Las operaciones que aparecen en el menú contextual de un Edit pueden realizarse por medio de métodos del mismo Edit:

CutToClipboard - Cortar
CopyToClipboard - Copiar
PasteFromClipboard - Pegar
Clear - Eliminar
Undo - Deshacer

Podrías entonces manejar así los eventos de tu menú

Código Delphi [-]
procedure TForm1.Cut1Click(Sender: TObject);
begin
  if (ActiveControl is TEdit) and TEdit(ActiveControl).Enabled then
    TEdit(ActiveControl).CutToClipboard;
end;

procedure TForm1.Copy1Click(Sender: TObject);
begin
  if (ActiveControl is TEdit) and TEdit(ActiveControl).Enabled then
    TEdit(ActiveControl).CopyToClipboard;
end;

procedure TForm1.Paste1Click(Sender: TObject);
begin
  if (ActiveControl is TEdit) and TEdit(ActiveControl).Enabled then
    TEdit(ActiveControl).PasteFromClipboard;
end;

procedure TForm1.Delete1Click(Sender: TObject);
begin
  if (ActiveControl is TEdit) and TEdit(ActiveControl).Enabled then
    TEdit(ActiveControl).Clear;
end;


Nota que cada evento verifica si el control activo (el que tiene el foco) es un Edit y sí está habilitado.

También podrías usar un TActionList para codificar los eventos y usar su evento OnUpdate para habilitar o inhabilitar las opciones en tu menú de acuerdo a sí el control activo es o no un Edit y si hay algo seleccionado o no.

// Saludos

Última edición por roman fecha: 29-07-2004 a las 01:48:56.
Responder Con Cita
  #5  
Antiguo 29-07-2004
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
De hecho, usando un TActionList es mucho más fácil.

En el ActionList escoges la opción "New standard action" del menú contextual y de la lista que te presenta escoges las acciones de edición. El ActionList se encarga de todo: determinar si el control activo es un Edit (o un Memo supongo) y habilitar o inhabilitar los ítems del menú según sea el caso.

// Saludos
Responder Con Cita
  #6  
Antiguo 29-07-2004
[digital] digital is offline
Miembro Premium
 
Registrado: jun 2003
Posts: 26
Poder: 0
digital Va por buen camino
Gracias Roman.. por tu ayuda..... funciano bien con el actionlis....
Responder Con Cita
  #7  
Antiguo 13-03-2007
lostprophets lostprophets is offline
Miembro
 
Registrado: sep 2006
Posts: 33
Poder: 0
lostprophets Va por buen camino
muchisimas gracias man yo solo tenia este codigo para cortar con variaciones para pegar

Código Delphi [-]
if Edit1.Sellength>0 then
edit1.cuttoclipboard;
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 01:33:02.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi