Bei onClick sender übergeben

[MOCI]

Hi,

mein Vorschlag wäre folgender:
Erstell eine property, die dein fokusiertes Edit haltet:

Code:

property FocusedCtrl: TWinControl read FFocusedCtrl write SetFocusedCtrl;

Erstelll 1 Prozedure MyMouseClick:

Code:

procedure TfrmMain.MyMouseClick(Sender: TObject);
begin
  FocusedCtrl := TWinControl(Sender);
  //mach dann deine Farbänderung
end;

Erstell die Edits zur Laufzeit und

Code:

procedure TfrmMain.btnHinzufuegenClick(Sender: TObject);
begin
  FocusedCtrl := TEdit.Create(Self);
  with FocusedCtrl do begin
    Name := IrgendEinName;
    OnClick := MyMouseClick;
  end;
  FocusedCtrl := FocusedCtrl;
end;

mfg MOCI