Thema: Delphi TabControl1.Tabs[i].Text

Einzelnen Beitrag anzeigen

Benutzerbild von ldzaferi
ldzaferi

Registriert seit: 16. Feb 2005
Ort: Kreuzlingen
7 Beiträge
 
Delphi 7 Enterprise
 
#1

TabControl1.Tabs[i].Text

  Alt 11. Okt 2005, 15:45
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)) <> '.htmlthen
   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.
Lavdim
Only delphi : )
  Mit Zitat antworten Zitat