![]() |
tmemo zur laufzeit erstellen
Hi
Ich habe da folgendes Problem: Ich will während das Programm läuft in einem pagecontrol weitere tabs erzeugen...soweit so gut...nun erzeuge ich darin ein memo-feld...so und nun mein PROBLEM: Wie komme ich nachträglich an den namen von dem memofeld...hier mal etwas von dem code den ich benutze: Mein Vars:
Delphi-Quellcode:
Der Code:
implementation
var namez :array[0..9] of string; var mymemo:tmemo;
Delphi-Quellcode:
Wenn ich nun mit "mymemo.name" anfange bekomme ich immer nur den namen vom neuesten memo-feld...das ist aber nicht mein zuiel da ich mehrere tabs für einen editor brauchen und den namen und die felder beim speichern auslesen will...
with TTabSheet.Create(PageControl1) do
begin PageControl := PageControl1; Caption := InputBox('Tab-Caption', 'Caption eingeben', 'Standard-Tab'); name:=InputBox('Tab-Name', 'Namen eingeben', ''); end; namez[(pagecontrol1.PageCount)-1]:=InputBox('Array-text', 'Text eingeben', ''); mymemo:=Tmemo.Create(Pagecontrol1.ActivePage); with Mymemo do begin Parent := pagecontrol1.Pages[(pagecontrol1.PageCount)-1]; mymemo.Align:=alclient; name:='m'+pagecontrol1.Pages[(pagecontrol1.PageCount)-1].Name; end; end; kann mir da jemand helfen?? Schon einmal danke im vorraus! Exuz |
Re: tmemo zur laufzeit erstellen
Hallo!
Ich würde halt ein Array anfangen, wo ich immer nach dem erstellen den Namen des Memos hineinschreibe. Dann weiß ich, dass der Name des Memos des 4. TabSheets, das ich erstellt habe, gleich dem vierten Element des Arrays ist. - Vielleicht habe ich aber auch irgendeinen Denkfehler drin... - MfG Lorenz |
Re: tmemo zur laufzeit erstellen
hi...darüber hatte ich auch schon nachgedacht...aber da man die tabs auch schließen kann ändert sich dann auch einiges immer...und irgendwie ist es dann trotzdem schwierig an die daten des memos zu kommen wenn man über ein array den namen bekommt...
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:06 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz