Verificar quando selecionar data diferente de ter�a ou quart

Question

Como pegar uma data de um componente TDateTimePicker e quando eu clicar numa data diferente de ter�a e quinta, ele me informe com um

Help · Answer

Utilize a fun��o �DayOfWeek� da unit �SysUtils� no evento �OnChange� do componente.

Se o resultado for igual a 3 (ter�a) ou 5 (quinta), exiba a mensagem.

Acho que isso resolve sua quest�o.

Rlcdo · Answer

Beleza... funcionou direitinho, por�m tem como al�m de mandar a mensagem, eu colocar algum controle que impe�a a pessoa de selecionar uma data diferente de ter�a ou quinta ap�s a exibi��o da mensagem?
Porque da maneira que eu to fazendo, eu seleciono uma data, por exemplo: quarta, a mensagem � exibida, mas ap�s eu clicar em �ok� fica selecionado na quarta
O c�digo � esse:

procedure TFRM_Movimento.Dta_SessaoChange(Sender: TObject);
begin
  inherited;
   if (dayofweek(Dta_Sessao.date)<>3) and (dayofweek(Dta_sessao.Date)<>5) then
   MessageDlg(�Voc� selecionou uma data diferente de ter�a e quinta�, mtinformation, [mbok], 0);

end;

Obs: o Dta_Sess�o � um componente TDateTimePicker[/code]

Marco Salles · Answer

pode ser que tenha uma propriedade , um evento mais direto.
Por�m vc obtem o que deseja processando mensagem

mais ou menos assim:

//declarando Vari�veis e m�todos

private
     Fdata:TDate;
     procedure OnChage(var message:TMessage);message Wm_User;

//inicializando Vari�veis

procedure TForm1.FormCreate(Sender: TObject);
begin
Fdata:=Dta_Sessao.Date;
end;

//Processando o Valor da Data Atribuida

procedure TForm1.Dta_SessaoChange(Sender: TObject);
begin
case dayofweek(Dta_Sessao.date) of
1,2,4,6,7:
 begin
   Dta_Sessao.onChange:=nil;
   Showmessage(�Voc� selecionou uma data diferente de ter�a e quinta�);
   postMessage(handle,wm_user,0,0);
 end
else
 Fdata:=Dta_Sessao.date;
end;
end;

//Corrigindo a Data caso necess�rio

procedure TForm1.OnChage(var message: TMessage);
begin
Dta_Sessao.Date:=Fdata;
Dta_Sessao.onChange:=Dta_SessaoChange;
end;

Boa sorte. Espero ter sido �til