Einzelnen Beitrag anzeigen

Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#7

Re: "keypressed" / "readkey" Ersatz?

  Alt 31. Okt 2003, 14:05
Delphi-Quellcode:
var
  Run: Boolean = True;

procedure TForm1.Button1Click(Sender: TObject);
var
  idx: Integer;
begin
  idx := 0;
  while Run do
  begin
    Inc(idx);
    Listbox1.Items.Add(IntToStr(idx));
    Application.ProcessMessages;
    sleep(25); // dami man was sieht
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Run := False;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_ESCAPE then
    Run := False;
end;
Geht wunderbar.

q.e.d.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat