Elktronisk julekalender

Og jeg vil gerne prøve at flyve en tur til månen :) ved bare ikke lige hvordan....

hmm det er da ik særligt svært.... lav 24 felter on klik på felter fjern panel - tjek at datoen svare til feltet gør den ikke det så messagepos('klap over fingerne',500,500);

Start med et baggrundsbillede. På den placerer du 24 TBitmap-komponenter der alle er transparente med undtagelse af en ramme og nummeret. På deres OnClick skal du tjekke om den kan åbnes endnu. Hvis den kan skal du bare erstatte billedet med hvad der er bag lågen.

Martin lind: Du køber en masse kunstgødning, en masse mel og lidt andet andet (det står på Internettet det hele). Dernæst sætter du dig ovenpå alt dette og tænder lunten. Så er du godt på vej...

Danm..... lyder lidt som "One-way" så er det nok ikke så god en idé *GG*

hæ hæ...

Her lidt hjælp til næste års julekalender......

sæt dine tags på dine images fra 1 til 24

var
  D, M, Y: Word;
  Hulnummer: Integer;
begin
  Hulnummer := (Sender as TImage).Tag;
  DecodeDate(Date, Y, M, D);
  if (D >= Hulnummer) and (M = 12) then
  begin
    (Sender as TImage).Visible := false;
  end
  else
    ShowMessage('Niks pille! Du må vente ...');
end;

koden tjekker op mod din system clock om den aktuelle image svare til datoen