Befehl immer wieder ausführen ohne CPU belastung

[idefix2]

Gescheiter wäre es, die stayontop Eigenschaft des entsprechenden Objekts zu setzen, wenn es nur um die Sichtbarkeit geht. Dem Anwender alle 50ms den Focus wegzunehmen, kann doch nicht die Absicht sein?

Um sich beliebige Fenster im Vordergrund sichtbar zu halten, gibt es übrigens die Freeware Deskpins.

[BlueLiquidCell]

Hey
Also um das mal klarzustellen. Es geht nicht um Notepad das war nur um es zu testen^^

Es geht um nen Flugsimulator. Das Problem dort ist, wenn man ihn im Fenstermodus laufen lässt (was für meine Anwendung nicht anders geht) dann geht der Sound sofort weg wenn man wo anders hinklickt, deshalb wollte ich halt etwas haben was ihn im Vordergrund hält oder bzw dann sofort wieder zurück bringt wenn man wo anders hingeklickt hat.
Mit Deskpins geht leider nicht, das Fenster bleibt zwar im Vordergrund aber leider nicht aktiv -> Sound geht aus
Und ich wollt das halt mit einem Button aktivieren und mit nem anderen abbrechen.
Habs jetzt so gemacht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
end;

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

Gibts da ne einfachere möglichkeit? Problem ist bei 50ms oder 100ms muss man schon öfter drücken bis der befehl durchkommt

Vlt geht das mit dem Sound ja auch anders????

Danke für die Antworten

[lbccaleb]

Also es geht um Flightsimulator X, hast du zu selbigen mal die 2 Service Packs ausprobiert? Das währe auf jedenfall ne bessere Lösung als das irgend ein selbstgeschriebenes Programm erledigen zu lassen

[Mschmidt]

versuchs mal mit dem reagieren auf die Windows-Botschaft WM_NCACTIVATE().
:-mschmidt