(Resolvido) Erro ao informar Evento em comp criado em run time

[robinhocne]

Criei essa procedure abaixo:

procedure TFAgenda.ChamaAgendamento(Sender: TObject);
begin

   with TFMarcaHorario.Create(Self) do
     begin
       try
         ShowModal;
       finally;
         FreeAndNil(FMarcaHorario);
       end;
     end;

end;

ele tem a função de que quando eu clicar em um TJvGradientHeaderPanel (pnAgenda) vai abrir o formulario TFMarcaHorario. Então no pnAgenda que eu crio em tempo de execução eu coloquei no evento on click a função, mas ai dá esse erro:

Incompatible types: 'TNotifyEvent' and 'procedure, untyped pointer or untyped parameter'

.....


                  begin
                      try
                      pnHorario := TJvGradientHeaderPanel.Create(Self);
                      with pnHorario do
                        begin
                          Parent     := pnAgenda;
                          Height     := 30;
                          Name       := 'pnHor' + QryAge.FieldByName('PhoControle').AsString + IntToStr(Min);
                          Align      := alTop;
                           PhoHorario   := QryAge.FieldByName('PhoHorario').AsDateTime;
                              LabelCaption := FormatDateTime('hh:mm',PhoHorario);
                          LabelFont.Name := 'Arial';
                          LabelFont.Size := 10;
                          LabelFont.Style := [fsBold];
                          LabelFont.Color := clBlack;
                          Font.Size  := 18;
                          Font.Style := [fsBold];
                          BevelOuter := bvLowered;
                          BevelInner := bvNone;
                          BorderWidth:= 1;
                          OnClick := ChamaAgendamento(Self);  //Chama o Agendamento de horário
                        end;

                       except
                         on E:Exception do
                           begin
                            ShowMessage('Erro ao criar pn' + Dtm.QryPesquisar.FieldByName('ProCodigo').AsString + #10 + e.Message);
                            exit;
                           end;
                       end;
                  end;

....

o que pode ser ? :unsure:

Edited October 27, 2011 by robinhocne

[Jhonas]

Tipos incompatíveis: 'TNotifyEvent' e 'procedimento', ponteiro não tipado ou parâmetro não tipado

OnClick := ChamaAgendamento(Self); //Chama o Agendamento de horário

procedure TFAgenda.ChamaAgendamento(Sender: TObject);
begin

   with TFMarcaHorario.Create(Self) do
     begin
       try
         ShowModal;
       finally;
         FreeAndNil(FMarcaHorario);  ///<<<<< erro
       end;
     end;

end;

O erro está bem explicito

abraço

[robinhocne]

Tipos incompatíveis: 'TNotifyEvent' e 'procedimento', ponteiro não tipado ou parâmetro não tipado

OnClick := ChamaAgendamento(Self); //Chama o Agendamento de horário

procedure TFAgenda.ChamaAgendamento(Sender: TObject);
begin

   with TFMarcaHorario.Create(Self) do
     begin
       try
         ShowModal;
       finally;
         FreeAndNil(FMarcaHorario);  ///<<<<< erro
       end;
     end;

end;

O erro está bem explicito abraço

Verdade Jhonas.....

procedure TFAgenda.ChamaAgendamento(Sender: TObject);
begin

   with TFMarcaHorario.Create(Self) do
     begin
       try
         ShowModal;
       finally;
         Free;
       end;
     end;

end;