Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls
    Delphi
    by toms, 20. Jun 2002
  Wenn wir grad bei Pause sind. Ich würde deine Pause Funktion noch so optimieren,
  damit die CPU Auslastung nicht zu hoch ist:
  (Nicht unbedingt für obige Fragestellung relevant)
  
  procedure Pause(time: Integer);
  var
  t: Cardinal;
  begin
  t := GetTickCount;
  while GetTickCount - t <= time do
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls
    Delphi
    by toms, 20. Jun 2002
  Hi,
  
  Ich würde keinen Timer nehmen sondern z.B Sleep.
  
  procedure BlinkComponent(AControl: TControl);
  begin
  AControl.Enabled := False;
  Sleep(1000);
  AControl.Enabled := True;
  end;