Ver Mensaje Individual
  #9  
Antiguo 26-06-2012
Jetzuvely21 Jetzuvely21 is offline
Miembro
NULL
 
Registrado: may 2012
Posts: 22
Reputación: 0
Jetzuvely21 Va por buen camino
Ok!

Gracias por contestarme a ambos jiji, y sip, hice la respectiva busqueda en los hilos, y precisamente del hilo que me comentas al ultimo me sirvió porque de ahi pude hacer lo que llevo.

El problema ahora es que cada que ejecuto el programa, entra al evento
Código Delphi [-]
  NewCheckBox.OnClick := ClickLabels; //Asignamos el evento

y en ese evento , aunque no le de click al CheckBox ya cuando se crea en mi forma, ambos eventos se ejecutan mostrandome los dos mensajes. Agregué la variable tag, al momento de crearlos.
Código Delphi [-]
procedure TForm1.ClickLabels(Sender: TObject); 
var vfila: Integer;
begin 
{with Sender as TCheckBox do   
begin    
ShowMessage(Caption);    
case Tag of     
1: ShowMessage('Accion especial para el primer ');     
2: ShowMessage('Accion especial para el segundo');     
end; 
end;}
 end;

Tambien probé lo del hilo:
Código Delphi [-]
procedure TForm3.CheckBox3Click(Sender: TObject); 
var nfila: Integer; 
begin 
nfila:=ActiveControl.Tag; <= Este tag lo defini al momento de crear el checkbox.  
IF StringGrid1.Cells[3,nfila]='' THEN 
ShowMessage('La tarea esta vacia, Haga un clic sobre la tarea que quiere modificar');  
end;

Pero aqui siempre el tag me lo ponea en 0 cuando hago click en el checkbox creado. Estoy segura que ando haciendo algo mal. Pero no veo que? >_<

Lo qe hago es dar click sobre el checkbox creado, pero no hace nada...
y el tag me lo pone siempre en 0. Gracias..
__________________
"El mejor alimento del alma, es la inspiración de uno mismo.."

Última edición por Jetzuvely21 fecha: 26-06-2012 a las 16:54:50. Razón: No se mostraba el codigo de forma correcta.
Responder Con Cita