Wert übergeben

[XXcD]

Also einfach nur: sleep(80000 oder so) und fertig???

[HalloDu]

Wie inherited gerade gesagt hat ist Delay besser. Weil dann das Programm auch neugezeichnet wird, wie ich gesagt habe, aber sonst grundsätzlich richtig.

[hoika]

Hallo,

entweder im Object-Inspector unter Items
oder direkt (z.B. in FormActive)

ComboBox.Items.Add('c:\');
ComboBox.Items.Add('d:\');

Heiko

[XXcD]

Also mit dem Delay das hab ich jetzt mal Probiert da ich aber sogut wie null ahnung von Delphi habe weiß ich jetzt nicht genau wie ich das einbinden soll.

[HalloDu]

Du musst es unter Type schreiben, z.B.:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    procedure delay(msec:longint);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

Und den Code unter implementation z.B.

Delphi-Quellcode:

implementation

procedure TForm1.delay(msec:longint);
var
  start,stop:longint;
begin
  start := gettickcount;
  repeat
  stop := gettickcount;
  application.processmessages;
  until (stop - start ) >= msec;
end;

[XXcD]

Joa danke ich probiere das mal kurz

[XXcD]

Jetzt muss ich das Delay ja noch an der stelle einfügen wo ich das haben will z.b. hier:

Zitat:

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
i:=0;
REPEAT

begin i++
ShellExecute(Application.Handle, 'open',
PChar('http://wowgarnasus.web-4-free.com'), nil, nil,


SW_ShowNormal);
*** Hier soll das Programm warten****
end; UNTIL i=4
end;

[mkinzler]

Dann füge es doch da ein.
i++ muß inc(i); heißen
begin..end -Block bei Repeat..Until kannst du weglassen

[XXcD]

Ich meine jetzt das von HalloDu mit dem Delay wie bekomme ich das in den Teil rein mit dem repeat ist damit das Programm nach den 30 minuten oder so wieder nach oben springt.

[mkinzler]

Einfach duch Aufruf von delay( 30 * 60 *100);