C�digo em run time ?

Question

que erro � esse ?Associar a Procedure [b:0b777df972]ChamarCadastro[/b:0b777df972] ao evento do menu, a procedure [b:0b777df972]ChamarCadastro[/b:0b777df972] tem um par�metro que � o nome do formul�rio...

Persist · Answer

Defina ChamarCadastro como um TNotifyEvent dentro da classe que est� o MainMenu (deve ser o Form).

procedure ChamarCadastro(Sender:TObject);

Da� p/ criar o Form vc usa um Cast -
var Form:TForm;
begin
Form := TForm(Sender).Create(nil);
end;

Cabelo · Answer

Vc pode definir tb uma outra procedure :

MainMenuClick(Sender : TObject);
begin
ChamarCadastro(f_cadastro);
end;

e associar esta procedure ao evento click do menu..

assim n�o tem erro..

espero ter ajudado..

Cabelo

Paulo_amorim · Answer

[quote:6af97356de=�persist�]Defina ChamarCadastro como um TNotifyEvent dentro da classe que est� o MainMenu (deve ser o Form).procedure ChamarCadastro(Sender:TObject);  Da� p/ criar o Form vc usa um Cast - var Form:TForm;begin  Form := [b:6af97356de]TForm(Sender)[/b:6af97356de].Create(nil);end;[/quote:6af97356de]Ol�Se eu n�o me engano isso ir� gerar um erro de typecastComo a procedure ser� atribuida ao bot�o, o Sender dele ser� o proprio TButton, o qual n�o conseguir� ser transformado em TFormO que eu imaginei foi vc criar 2 procedures :[code:1:6af97356de]procedure ChamarCadastro( form: TForm);begin(...)end;procedure PoeNoBotao(Sender: TObject);begin  ChamarCadastro(f_Cadastro);end;[/code:1:6af97356de]Da� no cme�o vc faz MainMenu.Items[0].Items[1].OnClick := PoeNoBotao;Esse erro ocorre porque para vc passar umaprocedure para um evento ela deve ter os mesmos par�metros que o evento (no caso, [i:6af97356de]Sender: TObject[/i:6af97356de])Esperoq ue ajuideAt�+...

Renata Coimbra · Answer

Muito Obrigada cabelo_uni e persist !vou testar ![]�sRenata Coimbra...

Renata Coimbra · Answer

Obrigada Paulo_Amorim !Um abra�o !Renata Coimbra....

Persist · Answer

T� certo, o Sender no caso � um TMenuItem, teria que ficar assim:procedure TForm1.Chamar_Cadastro(Sender:TObject);var Form:TForm;begin  Form := TForm(TMenuItem(Sender).Owner).Create(nil);end;...

Renata Coimbra · Answer

Gente, s� tem uma coisa, esse formul�rio que eu vou criar eu estou pegando o nome dele de uma tabela, tipo, tenho um seletor cadastrado em uma tabela, tipo String, olhem o c�digo de cria��o.

c�digo todo:

[b:0958cacf90]{Chamar cadastro}[/b:0958cacf90]

Procedure ChamarCadastro(const Cad : ShortString);
Var
f_Cadastro : Tf_Cadastro;
begin
f_Cadastro.Name := Cad ;

f_Cadastro := TChamarProgramas.LocalizarFormularioCadastro( UpperCase( cad ) );
if f_Cadastro <> nil then
f_Cadastro.Show
else
f_Cadastro := Tf_Cadastro.Create( Application );
end;

{Criar Menu}

var
i: Integer;
Formulario : ShortString;

For I := 0 to DataSet.RecordCount - 1 do
begin
NovoItem := TMenuItem.Create(MainMenu);
NovoItem.Name := DataSet.fieldByName(�SELETOR�).AsString;
NovoItem.Caption := DataSet.fieldByName(�DESCRICAO�).AsString;
Formulario := DataSet.fieldByName(�FORMULARIO�).AsString;

MainMenu.Items[0].Insert(I,NovoItem);
MainMenu.Items[0].Items[I].OnClick := ChamarCadastro (Formulario);
DataSet.Next;
end;

� que o formul�rio vai mudar de acordo com o for.

[]�s

Renata Coimbra.

Persist · Answer

f_Cadastro.Name := Cad;Vc n�o pode atribuir ainda pq vc n�o instanciou o f_Cadastro.MainMenu.Items[0].Items.OnClick := ChamarCadastro (Formulario); O onClick � um TNotifyEvent, vc n�o pode informar par�metro na hora da atribui��o....

Renata Coimbra · Answer

Pois � persist !Como fazer ent�o nesse caso ?como passar o nome do formul�rio que vai ser criado, sendo que qualquer uma das procedure s� pode ter Par�metro TObject,� que nesse for que eu pego o nome do formul�rio.[]�sRenata Coimbra...

Persist · Answer

Mas pq vc precisa do nome do formul�rio?...

Renata Coimbra · Answer

Deu certinho pessoal !obrigada a todos ![]�sRenata...

F�rum C�digo em run time ? #243151