Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bitsetter,
9. Aug 2007
Ansonsten könntest du beim dynamischen Erstellen des TRichedit den TabSheed.Tag den Pointer übergeben. for r := 1 to s do
begin
TabSheet := TTabSheet.Create(PageControl1);
with TabSheet do
begin
PageControl := PageControl1;
Name := 'ts' + IntToStr(r);
Caption := testStands;
RichEdit := TRichEdit.Create(TabSheet);
...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bitsetter,
9. Aug 2007
Ja und, das mache ich doch auch. Naja wenigstens funktioniert es bei mir.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bitsetter,
9. Aug 2007
Hi,
geht es so?procedure TForm1.Button1Click(Sender: TObject);
procedure FindControl(WinContr: TWinControl);
var
i : integer;
begin
for i:= 0 to WinContr.ControlCount- 1 do
begin