Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Bestimmtes Form immer als Aktives Fenster erhalten
Autor: MasterGandi
Datum: 12.11.05 14:19
Möchte mein Form immer als Aktives Oberstes Fenster mit Focus erhalten. Wie kann ich das anstellen. Hab schon folgende Dinge Versucht leider bin ich bloss bis zu einer 3xBlinkenden Titelleiste gekommen. Auf Form ist ein Timer gesetzt der alle 1000ms diese Prozedur aufruft: Private Declare Function GetActiveWindow Lib "user32" () As Long Private Declare Function SetActiveWindow Lib "user32.dll" (ByVal hWnd As Long) As Long Private Declare Function SetForegroundWindow Lib "user32.dll" (ByVal hWnd As Long) As Long Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long Private Declare Function SetFocusAPI Lib "user32" Alias "SetFocus" (ByVal hWnd As Long) As Long Public Sub Form_SetFocus(ByVal lHWND As Long) Dim lHWNDActiveWindow As Long lHWNDActiveWindow = GetActiveWindow() If lHWNDActiveWindow <> lHWND Then AppActivate GetCurrentProcessId() '3xBlinken 'SetActiveWindow lHWND 'Kein Effekt 'SetForegroundWindow lHWND '3xBlinken 'SetFocusAPI lHWND 'Kein Effekt End If End Sub

Bestimmtes Form immer als Aktives Fenster erhalten	699	MasterGandi	12.11.05 14:19
Re: Bestimmtes Form immer als Aktives Fenster erhalten	427	Dieter	12.11.05 17:58

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen