DBEDIT Feld auf transparent setzen.-geht nicht

[Andy Nightingale]

Hallo Leute,
Ich wollte das bei einem DBEdit Feld der Hintergrund transparent ist...das funktioniert aber nicht. Wenn ich es bei den Eigenschaften mache geht es nicht. Wenn ich ParentColor mache dann nimmt er zwar das unterste ...das ist zwar super, aber mein DBEDIT Feld ist eins drüber auf einem Image. Dort möchte ich nur den Text lesen und ändern können, aber alles andere soll transparent sein. Im Grunde eine einfache Sache. Aber ich habe das Gefühl das ich immer über die einfachen Dinge stolpere. Ganz komisch.
.-auch Borderstyle bsNone funktioniert... Hat jemand eine Idee? Grüße

TFormEingabeS.FormCreate(Sender: TObject);
begin
DBEditTower.color:= clNone;
...oder mit DBEditTower.ParentColor := True; // auch nix
end;

[Zvoni]

Hallo Leute,
Ich wollte das bei einem DBEdit Feld der Hintergrund transparent ist...das funktioniert aber nicht. Wenn ich es bei den Eigenschaften mache geht es nicht. Wenn ich ParentColor mache dann nimmt er zwar das unterste ...das ist zwar super, aber mein DBEDIT Feld ist eins drüber auf einem Image. Dort möchte ich nur den Text lesen und ändern können, aber alles andere soll transparent sein. Im Grunde eine einfache Sache. Aber ich habe das Gefühl das ich immer über die einfachen Dinge stolpere. Ganz komisch.
.-auch Borderstyle bsNone funktioniert... Hat jemand eine Idee? Grüße

TFormEingabeS.FormCreate(Sender: TObject);
begin
DBEditTower.color:= clNone;
...oder mit DBEditTower.ParentColor := True; // auch nix
end;

Es wäre mir neu, dass "clNone" für Color eine Transparenz des Hintergrunds erzeugt.
Das einzige was mir einfällt, wäre, falls du auf Windows bist, ein SetWindowLong gegen das Handle abzufeuern.
Müsste WS_EX_TRANSPARENT sein

Alternative könnte "CustomDraw" sein bzw. das OnPaint respektive OnPrepareCanvas abzufangen

EDIT: Sehe gerade, dass TDBEdit gar kein OnPaint/OnPrepareCanvas hat.
Dürfte also ein ziemlich übler Hack werden.....

[wp_xyz]

Ich finde, in diesem speziellen Fall sollte man für dieses Feld/diese Felder jeweils ein TDBEdit und ein TDBLabel zu verwenden, die so positioniert sind, dass sich sich exakt überlappen. Beide sind jeweils mit demselben Feld des TDataset verbunden, aber nur eins ist sichtbar. Normalerweise ist nur das TDBLabel sichtbar, es ist auch auf einem Image transparent (ohne eigenen Hintergrund). Wenn nun der Dataset in den Edit-Modus übergeht, wird TDBLabel auf Visible = false geschaltet und dafür TDBEdit auf Visible = true. Nun wird zwar der Hintergrund des DBEdit verwendet, aber der User soll doch erkennen, dass etwas einzugeben ist, oder? Die Umschaltung erfolgt im BeforeEdit (oder .AfterEdit?)-Event des Dataset, und im OnAfterPost/OnAfterCancel-Event wird wieder auf den Normalzustand geschaltet (DBLabel sichtbar, DBEdit unsichtbar).

[Andy Nightingale]

Hallo Leute,
Ich wollte das bei einem DBEdit Feld der Hintergrund transparent ist...das funktioniert aber nicht. Wenn ich es bei den Eigenschaften mache geht es nicht. Wenn ich ParentColor mache dann nimmt er zwar das unterste ...das ist zwar super, aber mein DBEDIT Feld ist eins drüber auf einem Image. Dort möchte ich nur den Text lesen und ändern können, aber alles andere soll transparent sein. Im Grunde eine einfache Sache. Aber ich habe das Gefühl das ich immer über die einfachen Dinge stolpere. Ganz komisch.
.-auch Borderstyle bsNone funktioniert... Hat jemand eine Idee? Grüße

TFormEingabeS.FormCreate(Sender: TObject);
begin
DBEditTower.color:= clNone;
...oder mit DBEditTower.ParentColor := True; // auch nix
end;

Es wäre mir neu, dass "clNone" für Color eine Transparenz des Hintergrunds erzeugt.
Das einzige was mir einfällt, wäre, falls du auf Windows bist, ein SetWindowLong gegen das Handle abzufeuern.
Müsste WS_EX_TRANSPARENT sein

Alternative könnte "CustomDraw" sein bzw. das OnPaint respektive OnPrepareCanvas abzufangen

EDIT: Sehe gerade, dass TDBEdit gar kein OnPaint/OnPrepareCanvas hat.
Dürfte also ein ziemlich übler Hack werden.....

Hi Zvoni,
war ne gute Idee...aber geht leider nicht habe dies hier mit einer neuen DBEdit mit verschiedenen Einstellungen getestet um es zu erzwingen.:

Code: Alles auswählen

SetWindowLong(DBEdit1.Handle, GWL_EXSTYLE,
                GetWindowLong(DBEdit1.Handle, GWL_EXSTYLE) or WS_EX_TRANSPARENT);
   DBEdit1.Invalidate;   

Löse es nun das ich das Bild farblich so anpasse das man nicht sieht was dahinter steckt. Danke dir aber für die Idee. Grüße

[Andy Nightingale]

Ich finde, in diesem speziellen Fall sollte man für dieses Feld/diese Felder jeweils ein TDBEdit und ein TDBLabel zu verwenden, die so positioniert sind, dass sich sich exakt überlappen. Beide sind jeweils mit demselben Feld des TDataset verbunden, aber nur eins ist sichtbar. Normalerweise ist nur das TDBLabel sichtbar, es ist auch auf einem Image transparent (ohne eigenen Hintergrund). Wenn nun der Dataset in den Edit-Modus übergeht, wird TDBLabel auf Visible = false geschaltet und dafür TDBEdit auf Visible = true. Nun wird zwar der Hintergrund des DBEdit verwendet, aber der User soll doch erkennen, dass etwas einzugeben ist, oder? Die Umschaltung erfolgt im BeforeEdit (oder .AfterEdit?)-Event des Dataset, und im OnAfterPost/OnAfterCancel-Event wird wieder auf den Normalzustand geschaltet (DBLabel sichtbar, DBEdit unsichtbar).

Hi WP,
spannender Ansatz.-ich teste das mal.- Danke dir.

[Zvoni]

Hi Zvoni,
war ne gute Idee...aber geht leider nicht habe dies hier mit einer neuen DBEdit mit verschiedenen Einstellungen getestet um es zu erzwingen.:

Code: Alles auswählen

SetWindowLong(DBEdit1.Handle, GWL_EXSTYLE,
                GetWindowLong(DBEdit1.Handle, GWL_EXSTYLE) or WS_EX_TRANSPARENT);
   DBEdit1.Invalidate;   

Löse es nun das ich das Bild farblich so anpasse das man nicht sieht was dahinter steckt. Danke dir aber für die Idee. Grüße

https://learn.microsoft.com/de-de/windo ... attributes
WS_EX_LAYERED wäre noch ne Idee.

Heisst:
SetWindowLong mit WS_EX_LAYERED (optional mit/ohne WS_EX_TRANSPARENT)
danach SetLayeredWindowAttributes
Das interessante ist die COLORREF-Struktur