Einzelnen Beitrag anzeigen

KrasserChecker

Registriert seit: 21. Jul 2004
120 Beiträge
 
#4

Re: Dynamisch erzeugte Panels und Controls

  Alt 6. Feb 2009, 11:44
Dafür gibt es die Eigenschaft "Tag".
Einfach beim Spinedit den Zeiger auf das Editfeld eintragen und bei Bedarf wieder auslesen:

Beim Initialisieren:
Delphi-Quellcode:
with NewSpinBtn do begin
...
Tag := Integer(NewEdit);
...
end;
Dann später im Event:
Delphi-Quellcode:
procedure TForm1.MyBottomClick(Sender: TObject);
begin
...
  TLabeledEdit(Pointer((Sender as TJvSpinbutton).Tag))).Text := IntToStr((Sender as TJvSpinbutton).Value);
...
end;
  Mit Zitat antworten Zitat