active seite von pageccontrol herausfinden

[markus lemcke]

tagchen,

folger code erzeugt dynamisch ein tabsheet und ein memo.

procedure Tmain.ffnen1Click(Sender: TObject);
var
tabsheet1:ttabsheet;
memo:tmemo;
begin
if opendialog1.execute = true then
begin
tabsheet1 := ttabsheet.create(pagecontrol1);
tabsheet1.PageControl := pagecontrol1;
tabsheet1.caption := extractfilename(opendialog1.filename);
tabsheet1.name := opendialog1.filename;

memo := tmemo.create(tabsheet1);
memo.parent := tabsheet1;
memo.align := alClient;
memo.lines.clear;
memo.lines.loadfromfile(opendialog1.filename);
end;

end;

nur wie speicher ich den text des aktiven memofeldes bzw. wie bekomme
ich den nanmen heraus?????????
wie finde ich heraus welche seite active ist und wie das memo heißt
dessen inhalt ich speichern muß!!!!!!!!!!!?????

mfg

markus

[Carsten Kauschmann]

Hallo Markus,

die aktive Seite bekommst du über PageControl1.ActivePage. Das Memofeld:
<p>
for i:=0 to PageControl.ActivePage.ControlCount - 1 do
if (PageControl.ActivePage.Controls[i] is TMemo) then
(PageControl.ActivePage.Controls[i] as TMemo).SaveToFile (opendialog1.filename)</p>

mfg Carste

[markus lemcke]

besten dank, werde es heute abend testen!!!!!

mfg

marku

[markus lemcke]

tag carsten,

nochmal vielen dank, hat bestens funktioniert. noch ein andere frage:
wenn ich eine datei öffne erstelle ich dynmisch ein pagecontrol, ein richedit(habe das memo ausgetauscht)
und lade da die ausgewählte datei rein. in caption von pagecontrol schreibe ich aus platzgründen
nur den dateinamen <b>ohne</b> pfad ab. jetzt muß ich aber den pfad noch irgendwo speichern,
damit ich nachher, wenn ich änderungen der aktiven page speichern will, weiß wo hin.
ich habe es mal provisorisch in die hint von pagecontrol gemacht, hast du eine bessere idee??

mfg

marku

[Thomas Melchert]

<p>Hallo Markus,<br>
<br>
erzeuge doch in Deiner Erstell-Routine zusätzlich noch ein TLabel, dass Du dann auf <b>Visible:=False</b> einstellst.<br>In diesem Label kannst Du Dir dann den Dateinamen merken.<br>
<br>
Gruß Thomas</p&gt

[markus lemcke]

die idee ist genial! so mache ich es!!!

[markus lemcke]

tag thomas,

ich wollte gestern abend das label so wie oben das memoerzeugen, aber irgendwie hat das zugreifen
auf caption nicht geklappt, obwohl ich es genauso wie beim memo implementiert habe!!!!!

jetzt lasse ich es halt in der hint!!!!
so funktionierts!!!!!!

mfg

marku

[Günther Weber]

Beim C++ Builder kann man unter "private" bzw. "public" beliebige Variablen deklarieren. Bei Delphi dürfte es doch nicht anders sein ? Dort würde ich dann den Namen speichern ! Hints und Panels kosten doch noch zusätzliche Windows-Ressourcen !? Guß - Günthe

[Thomas Melchert]

<p>Hallo Markus,<br>
<br>
Wunder, dass das mit dem Label nicht funktioniert?? Ich habe mir gerade Deinen Code nochmals angeschaut.<br>Wenn ich es richtig verstehe, merkst Du Dir den Dateinamen eh' schon, indem Du dem TabSheet durch tabsheet1.name:=opendialog1.filename,<br>bereits den kompletten Dateinamen zuweist.<br>
<br>
Gruß Thomas<br>
<br>
P.S.: Mail ist schon unterwegs....</p&gt

[Thomas Melchert]

<p>Hallo Markus,<br>
<br>
Wunder, dass das mit dem Label nicht funktioniert?? Ich habe mir gerade Deinen Code nochmals angeschaut.<br>Wenn ich es richtig verstehe, merkst Du Dir den Dateinamen eh' schon, indem Du dem<br>TabSheet durch absheet1.name:=opendialog1.filename, bereits den kompletten Dateinamen zuweist.<br>
<br>
Gruß Thomas<br>
<br>
P.S.: Mail ist schon unterwegs ...</p&gt

[Thomas Melchert]

<p>Hallo Markus,<br>
<br>
Wunder, dass das mit dem Label nicht funktioniert?? Ich habe mir gerade Deinen Code nochmals angeschaut.<br>Wenn ich es richtig verstehe, merkst Du Dir den Dateinamen eh' schon, indem Du dem TabSheet<br>durch <b>tabsheet1.name:=opendialog1.filename</b>, bereits den kompletten Dateinamen zuweist.<br>
<br>
Gruß Thomas<br>
<br>
P.S.: Mail ist schon unterwegs ...</p&gt

[markus lemcke]

tag günther,

das problem ist nicht das speichern des pfades, sondern die zuordnung!!!!!!!
wenn die page "index.html" aktiv ist, muß beim speichern, der entsprechende pfad benutzt werden,
weil es ist ja nicht zwingend, daß alle html-seiten im selben verzeichnis sind!!!!!!

tag thomas,

da mein projekt noch in den "kinderschuhen" steckt und somit sehr klein ist, kann ich es dir vielleicht
mal mailen. vorher muß ich es aber noch kommentieren, weil bisher habe ich bloß "reingehackt"!!!!!!

mfg

markus

p.s. freue mich schon auf deine mail!!!