Ein Recordzeichen ganz vorne Zeigen lassen
Hi
Ich will eine Aufnahme Exe programmieren und damit man sieht, ob man aufnimmt, will ich das man rechts oben einen Recordzeichen sieht (z.b Ein roter Punkt). Mir ist keine passendes Stichwort eingefallen, so konnte ich auch nicht in Google suchen. Könnte mir jemand weiter helfen? Vielen Dank im voraus |
AW: Ein Recordzeichen ganz vorne Zeigen lassen
Rechts oben wovon?
|
AW: Ein Recordzeichen ganz vorne Zeigen lassen
Also vor allen anderen Fenstern
|
AW: Ein Recordzeichen ganz vorne Zeigen lassen
Wie wäre es mit einem transparenten durchklickbaren Overlay-Fenster mit einem Image drauf? Ich komme gerade nicht auf den Namen des Styles, aber dazu sollte in der DP etwas zu finden sein.
|
AW: Ein Recordzeichen ganz vorne Zeigen lassen
Tu meinst ich soll ein Fenster über den Bildschirm machen?
|
AW: Ein Recordzeichen ganz vorne Zeigen lassen
Oder meinst du ein TrayIcon? (unten rechts bei der Uhr)
Zitat:
|
AW: Ein Recordzeichen ganz vorne Zeigen lassen
Einfach in TransparentColorValue die transparente Farbe setzten, TransparentColor auf True setzten, dann noch BorderStyle auf bsNone und schon ist das Formular unsichtbar. Wenn du jetzt etwas auf dem Formular schreibst, wobei die Font Color unterschiedlich TransparentColorValue sein sollte, schon hast du ein Record-Zeichen auf dem Monitor.
|
AW: Ein Recordzeichen ganz vorne Zeigen lassen
Das ist aber nur die halbe Miete, durchklickbar sollte es schon sein. Der zu setzende ExStyle müsste WS_EX_LAYERED sein, ist mir eben wieder eingefallen.
|
AW: Ein Recordzeichen ganz vorne Zeigen lassen
Sorry
aber wenn ich TranparentColer auf True setze ist es nicht duchsichtig und wo soll ich die Eigenschaft ExStyle zuweisen? |
AW: Ein Recordzeichen ganz vorne Zeigen lassen
In diesem Fall ist es nur eine dreiviertel Miete. Label, aber auch TextOut geben Texte mit Schriftglättung aus. Auf diese Weise sieht man Teile der Hintergrundfarbe, was hässlich aussehen kann.
Aber ich hab gerade eine Funktion zur Hand mit der man für den Font die Schriftglättung an und abschalten kann.
Delphi-Quellcode:
//Edit: @CreativeMD
{Schaltet Font Smoothing/anti-aliasing für Font an oder aus}
procedure FontSmoothing(Font: TFont; Antialiased: Boolean); const Quality: array [Boolean] of LongInt = (NONANTIALIASED_QUALITY, ANTIALIASED_QUALITY); var tagLOGFONT: TLogFont; begin GetObject(Font.Handle, SizeOf(TLogFont), @tagLOGFONT); tagLOGFONT.lfQuality := Quality[Antialiased]; Font.Handle := CreateFontIndirect(tagLOGFONT); end; Zitat:
|
AW: Ein Recordzeichen ganz vorne Zeigen lassen
sorry
ich vergass zu sagen das ich auch BorderStyle None gestellt habe. EDIT ich musste mit dem GlasFrame arbeiten jetzt ist es durchsichtig aber wie funktioniert es mit dem Durchklicken? |
AW: Ein Recordzeichen ganz vorne Zeigen lassen
Liste der Anhänge anzeigen (Anzahl: 1)
Guck dir das kleine Beispiel an.
|
AW: Ein Recordzeichen ganz vorne Zeigen lassen
Vielen Dank
funktioniert. Aber wie macht man es das es immer den Focus behält und nicht hinter Fenstern verschwindet? |
AW: Ein Recordzeichen ganz vorne Zeigen lassen
Setz mal testhalber FormStyle auf fsStayOnTop.
|
AW: Ein Recordzeichen ganz vorne Zeigen lassen
Im Beispiel Programm funktioniert es, aber
wenn ich die Form in mein Projekt einfüge, funktioniert es nicht mehr. Auch nicht mit FormStyle fsStayOnTop. EDIT Es ist nicht die Hauptform, liegt es vielleicht daran? EDIT 2 Es funktioniert mit diesem Befehl SetWindowLong(Handle, GWL_HWNDPARENT, 0); Nochmals vielen Dank |
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:37 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz