FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Drag & Drop Tedit?
Como hago para hacer drag & drop del contenido de un tedit a otro.
Gracias compañeros.
__________________
Carlos Arevalo MSN Messenger: carlos@arevalo.com.ve |
#2
|
||||
|
||||
Lo veo un poco difícil ya que el edit no está diseñado para ello.
Puedes intentar esto: Pones Edit1.DragMode en dmAutomatic y en los eventos OnDragOver y OnDragDrop de Edit2 pones: Código:
procedure TForm1.Edit2DragOver(...); begin Accept := true; end; procedure TForm1.Edit2DragDrop(...); begin if (Sender = Edit2) and (Source = Edit1) then TEdit(Sender).SelText := TEdit(Source).SelText; end; // Saludos |
#3
|
|||
|
|||
Cita:
Código:
procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if Shift=[ssShift] then Edit1.BeginDrag(false,-1); end; mientras no usemos la tecla el edit1 tendrá un comportamiento normal. En cuanto a los edit creo que es mejor usar la propiedad Text que la propiedad SelText esta última puede tener algún problema ya que para que funcione bien requiere que el texto del edit1 este seleccionado y que el edit2 este vacío. Saludos Última edición por Ruben_Cu fecha: 07-11-2003 a las 02:53:24. |
#4
|
|||
|
|||
Gracias muchachos por la asistencia
__________________
Carlos Arevalo MSN Messenger: carlos@arevalo.com.ve |
|
|
|