edit-feld-color on enter bzw. on leave farbe verändern

[tylix]

Hallo zusammen,

ich hab folgendes Problem,

ich habe eine Maske mit ca. 25 Feldern diese möchte ich aber so verändern, daß wenn der Benutzer z.B. von Feld1 in Feld2 springt, automatisch die Farbe des Hintergrundes von Feld1 wieder weiss und von Feld2 gelb wird.

Ich habe das zwar schon geschafft für bei zwei Feldern, nur ist jetzt meine Frage, kann ich das ganze irgendwie automatisieren und nicht bei jedem feld bei onenter oder onexit "edit1.color := clyellow" ... einzutippen.

Habt ihr da eine Hilfe für mich, wie ich das ganze vereinfachen kann?
Wäre supi.

Danke

[Sharky]

Hai tylix,

weise doch allen Edits das selbe OnEnter bzw. OnExit zu.

[tylix]

schon, muss ich aber nicht schreiben.

edit1.color := clyellow;

oder wie mach ich das? mit dem gleichen onedit / onexit.

??

[Sharky]

Zitat:

Zitat von tylix

...oder wie mach ich das? mit dem gleichen onedit / onexit.

So ;-)

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  ndx : Integer;
begin
  for ndx := 0 To Pred (ControlCount) do
  begin
    if ((Controls[ndx]) IS TEdit) then  // Alle TEdits berücksichtigen
    begin
      (Controls[ndx] As TEdit).OnEnter := EditEnter;  // OnEnter-Methode zuweisen
      (Controls[ndx] As TEdit).OnExit := EditExit;  // OnExit-Methode zuweisen.
    end;
  end;
end;

procedure TForm1.EditEnter(Sender: TObject);  // OnEnter
begin
  (Sender As TEdit).Color := clAqua;  // Sender auswerten
end;

procedure TForm1.EditExit(Sender: TObject);  // OnExit;
begin
  (Sender As TEdit).Color := clWhite;
end;

Anstelle es im OnCreat der Form zu machen kannst Du natürlich auch allen TEdits das OnEnter im ObjectInspector zuweisen.

[DP-Maintenance]

Dieses Thema wurde von "Sharky" von "Multimedia" nach "VCL-Komponenten und Controls" verschoben.
Hat wenider mit Muldimedia als mit VCL zu tun ;-)