Como Fazer?

[Halan Lopes]

Olá

como fazer a procedure de um botton ser iniciada apenas uma vez no form principal ou seja quando abre o programa!

[Halan Lopes]

criei dois edits com a hora que o programa é aberto e coloquei na procedure OnChange do MainMenu ex:

procedure TfrmPrincipal.MainMenu1Change(Sender: TObject; Source: TMenuItem;

  Rebuild: Boolean);

begin

Edit1.Text:=FormatDateTime(' ', Now);

Edit2.Text:=FormatDateTime(' ', Now);

end;

No evento Deactivate do Form Principal coloca-se

procedure TfrmPrincipal.FormDeactivate(Sender: TObject);

begin

Edit2.Text:=FormatDateTime('', Now);

end;

E no evento Activate do Form Princiapl Coloca-se

procedure TfrmPrincipal.FormActivate(Sender: TObject);

begin

if Edit1.Text=Edit2.Text then

Button1.Click;

end;

ou seja quando a hora do Edit1 for igual ao do Edit2 o Button é clicado quando o Form Principal perde o foco o Edit2 é atualizado não executando assim a função do Button quando retornado ao Form Principal!

[Churc]

nossa explica isso direito o que você quer fazer?

uma dica, use DatetoStr(Now);

porque você ta chamando o format e não ta formatando...

edit1.text := datetostr(now);

abraços

[Halan Lopes]

beleza mas já resolvi, agora to com uma duvida pra fazer dois filtros em uma tabela mais ou menos assim!

if ComboBox1.Text='Administrador' then begin

ADOTable1.Filter:= 'Tipo=True'+'Flag=True';

end;

if ComboBox1.Text='Usuario' then begin

ADOTable1.Filter:= 'Tipo=False'+'Flag=True';

end;

alguém tem alguma ideia de como fazer sem usar SQL?

[Halan Lopes]

teve jeito não tive que usar SQL coloquei essa expressão e deu certo

SELECT Menu.Tipo, Menu.Campo, Menu.Flag

FROM Menu

WHERE Menu.Tipo=:TipodeUsuario AND Menu.Flag=True

GROUP BY Menu.Tipo, Menu.Campo, Menu.Flag;

e no OnSelect do ComboBox coloquei

if ComboBox1.Text='Administrador' then

ADOQuery1.Close;

ADOQuery1.Parameters[0].Value:='Administrador';

ADOQuery1.Open;

if ComboBox1.Text='Usuario' then

ADOQuery1.Close;

ADOQuery1.Parameters[0].Value:='Usuario';

ADOQuery1.Open;