evento do botao

[dan_visualdm]

bom, em um form eu preciso manipular o evento onclick de um botao de outro form.

tentei fazer o seguinte, mas num deu muito certo não! rss...

olha o que tentei... hehehehee... :blush:

f_fdatas_cliente.MaskEdit2.OnClick := key=#13 then SpeedButton1.click;

valews!

[marlonCampos]

Olha só dan, o que você quer fazer ao chamar o evento on click do maskedit?

Que erro aparece?

Eu nunca tentei fazer algo semelhante e nunca vi alguém fazer.

Posta algo mais completo.;)

[dan_visualdm]

Olha só dan, o que você quer fazer ao chamar o evento on click do maskedit?

Que erro aparece?

Eu nunca tentei fazer algo semelhante e nunca vi alguém fazer.

Posta algo mais completo.;)

olá amigo...

então, é porque nesse form eu tenho um maskedit, só que esse form é ativado por 2 outros botões...

um botao que ativa é o "filtrar data cliente" e outro é "filtrar data produto".

e eu quero usar esse mesmo mask edit (porque futuramente outros 2 botoes vai ativar essa tela)

e cada botao precisar ativar o OnClick do maskedit, pra quando a pessoa digitar a data e teclar ENTER ativar um dos botoes desse form...

pois cada caso é um botao... e pra não precisar ficar criando um monte de form, fiz tudo em um...e tb pra não precisar ficar criando um monte de maskedit, gostaria de mudar o evento OnClick durante a execução do programa... (conforme o item selecionado)...

não sei se consegui explicar o que quero...

obrigado.

[Jhonas]

bom, em um form eu preciso manipular o evento onclick de um botao de outro form.

tentei fazer o seguinte, mas num deu muito certo não! rss...

olha o que tentei... hehehehee...

f_fdatas_cliente.MaskEdit2.OnClick := key=#13 then SpeedButton1.click;

para chamar um evento

f_fdatas_cliente.MaskEdit2.OnClick(Sender);

e no evento OnClick do MaskEdit2 voce pode fazer este teste

key=#13 then SpeedButton1.click;

abraço

[marlonCampos]

No evento OnKeyPress do maskedit você pode colocar o (if key = #13 then spedebutton1.click) conforme jhonas disse acima.

[dan_visualdm]

pessoal...

seguinte....

eu sei que se eu colocar no evento OnClick o seguinte : if key=#13 then SpeedButton1.click;

ele vai funcioonar... o problema é que eu quero mudar esse evento durante a execução do programa... porque tem hora que o onclick precisa ser para o speedbutton1 e tem hora q pro speedbutton2 ou speedbutton3...

[Jhonas]

o problema é que eu quero mudar esse evento durante a execução do programa... porque tem hora que o onclick precisa ser para o speedbutton1 e tem hora q pro speedbutton2 ou speedbutton3...

voce teria que ter um controle dentro deste evento com varias opções de acionamento

exemplo:

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
   showmessage('voce clicou o botao 1');
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
   showmessage('voce clicou o botao 2');
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
   showmessage('voce clicou o botao 3');
end;

procedure TForm1.MaskEdit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key=VK_F1 then SpeedButton1.click;
    if key=VK_F2 then SpeedButton2.click;
    if key=VK_F3 then SpeedButton3.click;
end;

Seria algo mais ou menos parecido com isto

abraço

[marlonCampos]

ele vai funcioonar... o problema é que eu quero mudar esse evento durante a execução do programa... porque tem hora que o onclick precisa ser para o speedbutton1 e tem hora q pro speedbutton2 ou speedbutton3...

Pelo que entendi você queria apertar enter e então acionar o botão. Nesse caso lá no evento key do makedit você vai ter que de alguma forma saber aual é o botão.Por exemplo:

if (key=#13) and (button1.visible = true) then SpeedButton1.click;

if (key=#13) and (button2.visible = true) then SpeedButton2.click;

if (key=#13) and (button3.visible = true) then SpeedButton3.click;

Você pode até verificar o que foi digitado no maskedit para então mostrar o botão necessário.

[dan_visualdm]

ele vai funcioonar... o problema é que eu quero mudar esse evento durante a execução do programa... porque tem hora que o onclick precisa ser para o speedbutton1 e tem hora q pro speedbutton2 ou speedbutton3...

Pelo que entendi você queria apertar enter e então acionar o botão. Nesse caso lá no evento key do makedit você vai ter que de alguma forma saber aual é o botão.Por exemplo:

if (key=#13) and (button1.visible = true) then SpeedButton1.click;

if (key=#13) and (button2.visible = true) then SpeedButton2.click;

if (key=#13) and (button3.visible = true) then SpeedButton3.click;

Você pode até verificar o que foi digitado no maskedit para então mostrar o botão necessário.

olá amigo.. axo que era isso mesmo que eu estava imaginando...

hj anoite vou fazer o teste, e dai posto o resultado....

valewss!!!