Hallo zusammen
Wie kann ich ein
Delphi-Quellcode:
OnChange := Ereignis_OnChange; //TNotify
OnKeyPress := Ereignis_OnKeyPress; //TKeyPressEvent
In eine Combobox oder Listbox legen, damit ich zur Laufzeit Komponente mit der
gewünschten procedure verbinden kann?
Die Komponente werden zur Laufzeit erzeugt:
Delphi-Quellcode:
...
Edit_Array[AktuellesDynamischesEditfeld] := TEdit.Create(self);
with Edit_Array[AktuellesDynamischesEditfeld] do
begin
Parent := ParentForm;
Name :='Edit_'+KompName;
Left := PositionLinks+150;
Top := PositionOben;
OnChange := Ereignis_OnChange; //TNotify
OnKeyPress := Ereignis_OnKeyPress; //TKeyPressEvent
OnMouseMove := Komponente_OnMouseMove;
Color := clWhite;
Text := KompText;
Visible := Sichtbar;
Enabled := Aktiv;
Width := Breite;
end;
...
Danke für Eure Hilfe
Gruss RWP