Arrastrar un Label sobre un edit

18-07-2011

*Caro*

Moderadora

Registrado: jul 2004

Ubicación: Cochabamba, Bolivia

Posts: 2.544

Poder: 24

Hola CarlosAlberto, debes utilizar los eventos OnDragDrop y OnDragOver de tu Edit y la propiedad DragMode de tus Labels en dmAutomatic.

Código Delphi [-]procedure TDualListDlg.EditDragDrop(Sender, Source: TObject; X,
  Y: Integer);
begin
  if (Sender is TEdit) and (Source is TLabel) then
    TEdit(Sender).Text := TLabel(Source).Caption;
end;
 
procedure TDualListDlg.EditDragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
 Accept := (Source is TLabel);
end;

Saluditos

__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.

« Tema Anterior | Próximo Tema »

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

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
consulta sobre rich edit	paopao	OOP	1	10-06-2008 15:40:02
Como mostrar Resultados de una consulta en componentes como los Edit,Label y DbGrids!	danny	Conexión con bases de datos	2	08-05-2008 23:35:46
Arrastrar y soltar un archivo sobre la aplicación	escafandra	C++ Builder	7	05-04-2008 16:30:46
pasar el contenido de un edit a un label sin necesidad de boton	douglas	OOP	9	24-10-2007 00:44:38
Consulta sobre controles Edit	jcheco	Varios	2	10-04-2006 11:51:53

La franja horaria es GMT +2. Ahora son las 10:02:31.