![]() |
TEdit + Border color ?
Hi all,
bei meinem Formularen würde ich gerne die Felder optisch hervorheben, die der User vergessen hat einzugeben. Dazu hab ich mir eine einfache Funktion geschrieben, das das entsprechende Feld rot einfärbt und ne Meldung ausgibt.
Delphi-Quellcode:
So, nun mein eigentliches Problem:
procedure requireInput(Edit : TDBEdit; Nachricht : string);
begin if trim(Edit.Text) = '' then begin showmessage(Nachricht); Edit.Color := clRed; Edit.SetFocus; Edit.Text := ''; abort; end else Edit.Color := clWhite; end; Statt das ganze Feld rot zu färben, würde ich gern den Rand / Border rot machen. Ich hab mir diese BorderStyle-Property angeschaut, aber keine Idee wie man da Farbe mit rein bringen soll. Thx für eure Hilfe, ben |
Re: TEdit + Border color ?
Hallo,
Wie man die Border Color duch Code ändern könnte, wüsste ich jetzt auch nicht, aber ich habe mal bei torry ein paar Komponenten gefunden, die diese Eigenschaft haben. kannst du dir ja mal angucken, die Frage ist bloß, ob diese dann auch optisch zu deinem Formular passen. ![]() Gruß, Lennard |
Re: TEdit + Border color ?
Hi,
thx für deinen Tipp. An fremde Komponenten hab ich auch schon gedacht - allerdings verwende ich XPMenu-Komponente, und 'fremde' Textfelder werden von dieser ja dann nicht berücksichtigt, oder sehe ich da was falsch ? Thx & Greets, ben |
Re: TEdit + Border color ?
wenn diese Fremdkomponenten von TCustomEdit abgeleitet wurden, dann sollte das trotzdem klappen mit dem XPMenu.
|
Re: TEdit + Border color ?
Also, diese FlatStyle Komponenten machen das glaub ich nicht, deswegen hatte ich auch bedenken, ob sie in dein Formular reinpassen.
Kann man nicht ansonsten einfach ein Image auf das Edit "rauflegen" und dieses dann einfach anzeigen? Das ist dann zwar keine besonders elegante Lösung aber funktionieren tut es :wink: Gruß, Lennard |
Re: TEdit + Border color ?
Ich würde eine TShape-Komponente so hinter das Editfeld legen, daß ihr Rand noch zu sehen ist. Über die Pen-Eigenschaft von TShape kann man das Aussehen des Rahmens steuern.
Gruß Hawkeye |
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:52 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz