Registriert seit: 29. Mai 2002
37.621 Beiträge
Delphi 2006 Professional
|
Re: "keypressed" / "readkey" Ersatz?
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.
|