Cáp. 01 - Construir uma Aplicação Simples

Construa uma aplicação IntraWeb simples que mostre uma saudação ao usuário (“Bom-Dia”, “Boa-noite” etc.) quando a mesma for iniciada. A mensagem deve ser mostrada em um IWLabel.

No Delphi escolha File|New>Other. Na página IntraWeb escolha IntraWeb Application Wizard. Na janela a seguir marque StandAlone Application e clique no botão Ok.

No formulário gerado pelo IntraWeb adicione um componente IWLabel. Dê um duplo clique no formulário e no seu evento OnCreate digite:

procedure TIWForm1.IWAppFormCreate(Sender: TObject);
begin
IWLabel1.Caption := Saudacao + ', hoje é ' +
FormatDateTime('dddddd',date);
end;

Declare e implemente a função Saudação logo acima de IWAppFormCreate, como mostrado a seguir:

function Saudacao : string;
begin
result:='Boa-noite';
if (time>=0.25) and (time<0.5) then result:='Bom-dia';
if (time>=0.5) and (time<0.80) then result:='Boa-tarde';
end;
....

Execute a aplicação. Veja como ficou na figura a seguir:

Observe que, de acordo com o horário no servidor, a mensagem muda.