hmm wäre ne Möglichkeit nur vermutlich switcht Windows dann ja aud dem aktiven Programm raus , wenn ich die Form anzeigen lasse.
Ich kennt das vielleicht von den Logitech-Applikationen. Wenn man die Lautsärke mit der Tastatur verändert, etc gibts immer am unteren Bildschirmrand ne Textmeldung...sowas solls bei mir auch werden (in der Richtung jedenfalls ^^)
Ich hab hier mal den Code gepostet mit dem ich das mache:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
| Procedure draw_action(action:String; farbe:TColor; groesse:Integer; brush_style:TBrushStyle);
var cvs: TCanvas; DHandle: HWND;
begin
DHandle:=GetDC(0);
if DHandle<>0 then
begin
try
cvs:=TCanvas.Create;
try
cvs.Handle:=DHandle;
cvs.Font.Color:=farbe;
cvs.Font.Size:=groesse;
cvs.Brush.Style:=brush_style;
cvs.TextOut(25, Screen.Height-(groesse*2), action);
finally
cvs.Free;
end;
finally
if ReleaseDc(0, DHandle)<>1 then
RaiseLastOSError;
end;
end
else
RaiseLastOSError;
end; |
vielleicht hat jemdand ne idee wie man sowas machen kann
Moderiert von 
Gausi: Code- durch Delphi-Tags ersetzt
