Reza,
Create a descendent class of label and place your code into that class. Use that descendent label class in your form.
Example:
DEFINE CLASS red_label AS label
Caption = "Label1"
Height = 17
Width = 40
Name = "red_label"
PROCEDURE MouseDown
LPARAMETERS nButton, nShift, nXCoord, nYCoord
THIS.ForeColor = 255
RETURN
ENDPROC
PROCEDURE MouseUp
LPARAMETERS nButton, nShift, nXCoord, nYCoord
THIS.ForeColor = 0
RETURN
ENDPROC
ENDDEFINE
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement