FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
stringGrid y Hint
Hola a todos
Como puedo sacar un hint en la columna y fila Fixed (FixedCol, FixedRow) de un stringGrid podrian indicarme por favor con que evento trabajar y como saber si estoy sobre una columna o fila Fixed, muchisimas gracias por adelantado. Saludos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar. |
#2
|
||||
|
||||
Holas
Lo he conseguido con esta funcion del stringGrid -> MouseToCell que nos devuelve fila y columna en donde se encuentra las coordenadas X y Y que le pasaremos de nuestro evento MouseMove de nuestro stringGrid, sin esta función solo me devolvia los hint de las celdas pero no de las celdas que eran Fixed, habra que aumentar condiciones para que solo salga los hint en las filas y columnas fixed. Algo que he notado es que tarda un poco en desaparecer el hint cuando me voy a otra celda que se sera?, si a alguien se le acurre el porque y como solucionar este retardo le estare muy agradecida.
Saludos y que tengan un bonito dia
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar. |
#3
|
|||
|
|||
Draw Grid y Hint en Delphi 6
Hola,
Yo me he encontrado un problema similar con Delphi 6: quería mostrar un mensaje de ayuda ("Hint") distinto para cada celda de una Draw Grid excepto en la cabecera. Basándome en la solución de Caro, he hecho lo siguiente: -Poner la propiedad "ShowHint" de la DrawGrid a "True". -Crear una variable para contener los mensajes de ayuda de las distintas celdas. Llenar la variable con los valores adecuados (no lo muestro por ser evidente). -Crear una función "OnMouseMove" de la DrawgGrid y en ella llamar la función "MouseToCell", usándola para actualizar Hint con los valores de la variable: Código:
Var HintDrawGrid1 : Array[1..4, 1..4] Of ShortString; procedure TForm1.DrawGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); Var ACol, ARow : Integer; begin DrawGrid1.MouseToCell(X, Y, ACol, ARow); If (ACol > 0) And (ARow > 0) { No quiero mostrar Hint en las cabeceras } Then DrawGrid1.Hint := HintDrawGrid1[ACol, ARow] Else DrawGrid1.Hint := ''; end; { DrawGridMouseMove } -Igual que le pasa a Caro con la String Grid, el mensaje tarda un poco en desaparecer cuando saco el puntero del ratón de la celda, pero sólo si muevo el puntero a otra celda de la String Grid. En cuanto lo saco de la Draw Grid el mensaje desaparece (como debe ser). -Una vez ha aparecido un mensaje Hint en una de las celdas, no aparece en ninguna otra de la Draw Grid hasta que muevo el puntero fuera de la Draw Grid. O sea, que para obtener Hint de diversas celdas tengo que ir moviendo el puntero fuera y dentro de la Draw Grid. Si alguien sabe como mejorar estos dos detalles, agradeceré su respuesta. Saludos |
#4
|
||||
|
||||
Gracias Caro, lo voy a probar.
Saludos. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Hint /*+ Append*/ | AngelMarvin | Oracle | 0 | 04-04-2006 16:45:26 |
Evento Hint | lotos8ar | Varios | 6 | 07-10-2005 17:23:55 |
Hint y TListBox | Elfoscuro | Varios | 4 | 28-04-2005 22:08:57 |
Hint (Urgente !!!) | jymy788 | Varios | 2 | 16-09-2004 16:18:27 |
Propiedad Hint | Javier_A | OOP | 1 | 28-11-2003 14:55:53 |
|