Einzelnen Beitrag anzeigen

Benutzerbild von Cosamia
Cosamia

Registriert seit: 27. Feb 2007
Ort: Emmendingen
221 Beiträge
 
Delphi 2007 Professional
 
#6

Re: Dynamisch erzeugte Panels und Controls

  Alt 6. Feb 2009, 11:55
Zitat von KrasserChecker:
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;
Vielen Dank. Funktioniert wunderbar.
  Mit Zitat antworten Zitat