ďťż

Ładny brzuch

Witam!
Mam taki problem:
Jak zrobić tak aby przy otworaniu nowego pliku otwarła się nowa zakładka (TTabSheet) z komponentem RichEdit zmieniła nazwe na taką jak nazywa sie dany plik?
PS: Chciałbym skorzystać z OpenDialog.
Z góry dzięki.


Coś takiego, ale dla większej ilości plików, trzeba zrobić inaczej...if OpenDialog1.Execute then begin TabControl1.Tabs.Add(ExtractFileName(OpenDialog1.FileName)); RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName); end;
Użytkownik Cyrkiel edytował ten post 12 luty 2006, 16:47
RichEdit-1 trzeba wygenerować w czasie działania

pojawia mi się błąd w tej lini:

TabControl1.Tabs.Add(ExtractFileName(OpenDialog1.FileName));


Jaki błąd?!

procedure TForm1.Button1Click(Sender: TObject); var rich:TRichEdit; tab:TTabSheet; begin if OpenDialog1.Execute then begin tab:=TTabSheet.Create(nil); tab.PageControl:=PageControl1; tab.Caption:=ExtractFileName(OpenDialog1.FileName); rich:=TRichEdit.Create(tab); rich.Parent:=tab; rich.Width:=tab.Width; rich.Height:=tab.Height; rich.ScrollBars:=ssBoth; rich.Lines.LoadFromFile(OpenDialog1.FileName); tab.Show; end; end;
Użytkownik Cyrkiel edytował ten post 12 luty 2006, 17:50
Dzięki teraz jest okej
Użytkownik pjot1 edytował ten post 13 luty 2006, 14:27
  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •