TabControl1.Tabs[i].Text

[ldzaferi]

Hi,
ich habe folgendes Problem. Und Zwar schreibe ich meine Semester-Arbeit in Delphi und ich muss einen HTML-EDITOR (Like PHASE 5 - HTML EDITOR DEN MAN IM NET GRATIS DOWNLOADEN KANN) Programmieren.
Wenn ich auf z.B. eine Neue HTML Seite (Date_New) klicke macht er mir schön eine Neue Tab und mit dem Namen den ich Hart-Codiert habe z.B. (Unbennant1.html).
Nun möchte ich diesen Namen aber ändern mit einem PopUp Menu, rechter Mausklick_umbenennen das Aktuelle Tab. Wenn ich das tuhe, verschwinden immer alle anderen Tabs nur der eine, denn ich umbenannt habe bleibt übrig. Kann mir jemand helfen

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
begin
  if copy(edit1.Text,length(Edit1.Text)-4,Length(Edit1.Text)) <> '.html' then
   Form1.TabControl1.Tabs.Text := Edit1.Text + '.html'
  else
  //Form1.TabControl1.Tabs[Form1.TabControl1.TabIndex].Text := Edit1.Text;
   Form1.TabControl1.Tabs[1] := edit1.Text;
end;

Hier sieht man noch wie ich es Probiert habe bisher.

[dizzy]

Mal beide if..else Zweige direkt untereinander:

Delphi-Quellcode:

Form1.TabControl1.Tabs.Text := Edit1.Text + '.html';
Form1.TabControl1.Tabs[1] := edit1.Text;

Fällt dir was auf? Im ersten Fall setzt du den Text für ALLE Tabs auf den einen einzigen String. Somit gibt es auch nur noch dieses eine. Bei der zweiten Variante hingegen machst du es richtig: Nur den Text für das erste Tab setzen. Tabs.Text ist quasi die Zusammenfassung aller Tabs[x].

[ldzaferi]

Hey danke vielmal. Vor lauter Code in den letzten Tagen fallen mir solche fehler einfach nicht mehr auf hehe. THX A LOT!