| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Tugui
Master
Registrado: 09 Nov 2002Mensajes: 663
|
 Publicado: Lun 01 May, 2006 2:22 pm Asunto: Arrastrar un TLabel en tiempo de ejecución |
 |
|
Actualmente estoy insertando un TLabel sobre un TImage en tiempo de ejecución en función de unas coordenadas obtenidas del usuario. Quisiera perfeccionar esto de manera que la colocación del texto sobre el TImage pudiera hacerse arrastrándolo de forma visual. En el foro he encontrado un código que funciona muy bien para un TPanel:
| Código: |
void __fastcall TForm1::Panel1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
ReleaseCapture();
Panel1->Perform(WM_NCLBUTTONDOWN,HTCAPTION,0);
}
|
Estoy intentando hacerlo servir para un TLabel pero no lo consigo  , si alguien tiene alguna información se la agradeceré.
_________________
¡ADELANTE CON ESTE SUPER FORO! |
|
| Volver arriba |
|
 |
Cesar C. Salazar Gonzalez
Master
Registrado: 01 Oct 2002Mensajes: 2155Ubicación: San Cristóbal de Las Casas, Chiapas
|
| Publicado: Lun 01 May, 2006 8:21 pm Asunto: |
|
|
| Código: | void __fastcall TForm1::Edit1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
TPanel *pLbl = reinterpret_cast<TPanel*> (Sender);
ReleaseCapture();
pLbl->Perform(WM_NCLBUTTONDOWN,HTCAPTION,0);
} |
_________________
 |
|
| Volver arriba |
|
|
Tugui
Master
Registrado: 09 Nov 2002Mensajes: 663
|
| Publicado: Mar 02 May, 2006 9:33 pm Asunto: |
|
|
Lo primero es darte las gracias César por tu aporte, pero ... el código que me has puesto no funciona con un TLabel, sin embargo para un TEdit que es el control para el cual tu lo has escrito funciona a la perfección. Insisto en que es para un TLabel. Viendo lo relativamente sencillo que es para un TPanel y para un TEdit uno piensa que debería ser igual para un TLabel pero nada ... no hay manera .
P.D: He probado tu mismo código pero en lugar de crear un objeto TPanel creo un objeto TLabel, pero no funciona. Gracias otra vez por tu apoyo.
Por cierto, tu código funciona (en el TEdit) si quitamos la primera línea ¿es necesaria realmente?
_________________
¡ADELANTE CON ESTE SUPER FORO! |
|
| Volver arriba |
|
|
_Leo
Site Admin
Registrado: 11 Ago 2002Mensajes: 1875Ubicación: Lanzarote - Islas Canarias (España)
|
|
| Volver arriba |
|
|
Tugui
Master
Registrado: 09 Nov 2002Mensajes: 663
|
| Publicado: Mie 03 May, 2006 7:21 am Asunto: |
|
|
Ahora si  , perfecto. No cambies nunca _Leo.
_________________
¡ADELANTE CON ESTE SUPER FORO! |
|
| Volver arriba |
|
|
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
