Repaint funzt nicht

[TomDooley]

Hallo zusammen

Habe ein kleines Problem mit dem Neuzeichnen eines Formulars.

Auf dem Form ist ein TabSheet und darauf sind Edit-Felder. Dich möchte nun die Hintergrundfarbe der Edit-Felder ändern.... wenn ich nach der neuen Farbzuweisung form.editfeld.repaint aufrufe, klappt alles. Da ich aber mehrere Felder habe möchte ich alle auf einmal ändern. Leider klappt es mit form.repaint nicht (erst wenn ich ein kurz in eine andere Page wechsle, geht's)
Was mache ich falsch??

es dankt und grüsst

TomDooley

[neolithos]

Versuch mal ob Invalidate funktioniert!

[TomDooley]

danke für die Info. Geht aber leider auch nicht. Zudem ruft doch repaint invalidate auf...

[Stanlay Hanks]

Hi! Hmm..Wenn das Programm noch nicht zuweit in der Entwicklung ist, könntest du ja mal die ganzen Dateien hochladen, dann kann man mal damit rumprobieren. :gruebel:

Man liest sich, Stanlay :hi:

[neolithos]

Oh!

Weist du die Farbe via Edit1.Color zu oder Edit1.Brush.Color?

Versuch mal das andere von dem welches du benutzt.

[Markus K.]

Hi,
ich hab zwar nicht wirklich Ahnung davon, aber was passiert wenn man den TabSheet neuzeichnet?
PageControl1.Pages[n].Repaint;

[TomDooley]

Hallo

Hab Eure Vorschläge alle ausprobiert... leider ohne Erfolg. Die Files kann ich leider nicht hochladen (ist zu umfangreich).

[neolithos]

Seltsam!

TIPP: Wenn die Dateien zu Umfangreich mach ich meist ein kleines Bsp in dem der selbe Fehler auftritt und präsentier das!

[minimops]

Zwei Edits auf Tabsheet:

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  edit1.Color:=clRed;
  edit2.color:=clGreen;
end;

Das geht wunderbar bei mir, machst Du etwas anderes?

Axel

[TomDooley]

Ich habe noch zwei Zusatzinformationen zu meinem Problem:

Wenn ich statt der Farbe den Text des Edit-Feldes ändere, funktioniert das! D.h. das Problem scheint nur im Zusammenhang mit der Farbe aufzutreten.

Wenn die falsche Farbe angezeigt wird und ich ins Edit-Feld klicke, ändert die Farbe auf die richtige Farbe!

:gruebel: