Editfelder verändern

hibbert · Verfasst: Fr 29.08.03 15:36

Hi,
wie kann ich das Grafische aussehen eines Edit Feldes veränders, sodass es nicht mehr nach Windows aussieht?

thx hibbert

_________________
I kunnen väl svara endast ja eller nej
Om i viljen eller nej

MSCH · Verfasst: Fr 29.08.03 15:44

tja, da bleibt dir nur übrig, ein neue Klasse abzuleiten und die Paint() und andere diverse Methoden zu überschreiben, sprich neu zu definieren.
grez
msch

_________________
ist das politisch, wenn ich linksdrehenden Joghurt haben möchte?

hibbert · Verfasst: Fr 29.08.03 15:51

aha, klingt ja nicht schlecht, aber kannst du mir bitte weiterhelfen, denn ich weiß jetzt nicht genau was mit paint() gemeint ist :oops:

. Vielleicht kannst du ja mal ein kleine beispiel geben.

thx hibbert

_________________
I kunnen väl svara endast ja eller nej
Om i viljen eller nej

Terra23 · Beiträge: 872 Win 8 Delphi 7

Was du machen könntest, wäre auch folgendes:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.<span style="font-weight: bold">Edit1Enter</span>(Sender: TObject);
begin
If Sender Is TEdit
Then (Sender As TEdit).Color:=clRed;
end;

procedure TForm1.<span style="font-weight: bold">Edit1Exit</span>(Sender: TObject);
begin
If Sender Is TEdit
Then (Sender As TEdit).Color:=clWindow;
end;

Damit hättest du schon mal die Farben des Edit-Feldes bei "Betreten" geändert. Außerdem kannst du noch folgende Einstellungen verändern, damit es nicht allzusehr nach Windows aussieht:

BevelInner
BevelKind
BevelOuter
BorderStyle
Ctl3D

Vielleicht hilft dir das ja ein wenig..

_________________
Hasta La Victoria Siempre

hibbert · Verfasst: Fr 29.08.03 18:13

ok, danke erstmal.

Aber kann ich noch weiteres verändern, zB. den Hintergund (mit einem .bmp Bild)?

thx hibbert

_________________
I kunnen väl svara endast ja eller nej
Om i viljen eller nej

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme