Efter 2 sek.

tryk på uret og skriv showmessage("hej");

og i dens paramenter skal du bare sætte interval til 2000 istedet for 1000

i din form create procedure skriv følgende:

begin
  sleep(2000);
  showmessage('hej');
end;

NB: Det der egentligt sker er at du lader din computer "sove" (fryse om du vil!) i 2 sekunder og dernæst skal programmet vise din showmessage! Men hvorfor vil du egentligt ikke benytte Ttimer?

han skal lave en løkke...

while(1) do
sleep(2000);
showmessage('hej');

sådan

wollabella>> Hvad snakker du om?

I mit eksempel behøves der kun

begin
  sleep(2000);
  showmessage('hej');
end;

(Basta)

øhhhh sq da ikke hvis den hver gang der går 2 sek skal popup med hej... den kode du har vil den kun gøre det 1 gang altså 2 sek efter form load!

Ja! - sfreak ville JO IKKE BRUGE EN TTIMER...og i dit eksempel BLIVER der jo brugt en Ttimer!

Hvis der skal poppe en besked frem hver 2. sekund skal det se således ud i din form create procedure:

var
  i : integer;
begin
  for i := 0 to 2 do
  begin
    sleep(2000);
    showmessage('hej');
  end;
end;

øhhh hvor er den timer henne??

jeg bruger sq da ingen timer ...

Nu gør den det selvfølig kun 3 gange i træk men det kan du jo altid ændre... En helt anden alternativ måde er at lave en appmessage procedure:

procedure TForm1.FormCreate(Sender: TObject);
begin
  application.onmessage := appmessage;
end;

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
var
  MyTime: TDateTime;
  hour, min, sec, msec : word;
begin
  MyTime:= Now;
  DecodeTime(MyTime, Hour, Min, Sec, MSec);
  panel1.caption := inttostr(hour)+':'+inttostr(min)+':'+inttostr(sec);
  formpaint(nil);
  caption := caption+'.';
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  repaint;
  caption := '.';
end;

Her bliver klokken vist på en panel men der bliver IKKE brugt Ttimer!!!

wollabella>> dit første indslag: "tryk på uret og skriv showmessage("hej");"

PS: i mit sidste eksempel skal du definere: AppMessage under private! (Husk at tilføje en panel "Panel1" på din form!)

Jeg kan altså ikke bruge den sleep til en skid.
Min computer skal ikke på nogen måde "sove".
Jeg skal kunne bruge programmet i de 2 sek. inden der kommer en showmessage();

Og jeg kan ikke bruge en TTimer, da der kommer en error når jeg bruger TTimer i en OCX-fil og kører den i HTML.

så brug mit sidste eksempel!