Problemer med notebook

Det er vel \"bare\" et spørgsmål om at det skal være den enkelte NoteTab der skal stå som \"ejer\" af dit TImage, altså \"Billeder[i] := TImage.Create(xxxxx);\"

Eller hyr ?

Mener du:

Billeder[i] := TImage.Create(MainForm.Notebook1);

?? For det virker ikke!

Nej Din NoteBook kan i teorien ikke \"eje\" (visuelle) componenter. Du skal indsætte dit TImage direkte på \"den side\" hvor den skal bruges (denne skal være \"owner\", så husk også at sætte TImage.Parent). Jeg har netop lige fyret op i min Delphi så jeg er sikker på at jeg kalder tingende ved deres rigtige navne.

På formen har jeg indsat en TPageControl, og i denne har jeg oprettet (via højre-mus/\"New page\") 2 \"sider\" (TTabSheet). Det er på disse \"sider\" du skal indsætte dine TImages. Jeg har ikke ændre på de navne som Delphi foreslår så i mit tilfælde hedder den første side: \"TabSheet1\" (og den anden hedder \"TabSheet2\").

Nedenstående kode indsætter et billede (fra default W2K DK installationen)
<SNIP>
procedure TForm1.FormCreate(Sender: TObject);
var
  Billede : TImage;
begin
  Billede := TImage.Create(TabSheet2);
  Billede.Parent := TabSheet2;
  Billede.Picture.Bitmap.LoadFromFile(\'c:\\winnt\\Fjerstruktur.bmp\');
  With Billede do begin
    AutoSize := True;
    Left := 10;
    Top  := 10;
  end;
end;
</SNIP>


PS Det er testet og det virker fint, billedet kommer på \"den anden side\" (TabSheet2) ganske som jeg forventede det skulle.

Jeg skal bruge en TNotebook.

Jeg kan ikke bruge en TPageControl og TTabSheet.

Medmindre at man kan skjule TPageControlen.

Help me!

PS: Jeg har forhøjet fortjenelsen til 100 point.

Det var straks værre da jeg ikke har brugt denne siden D1/D2 (og som de selv skriver: \"Notebook components are frequently used with tab set controls (TTabSet) to let the user select pages in the notebook by clicking a tab.  TNotebook is provided for BACKWARD compatibility. New applications SHOULD use TPageControl instead\").

Men nu hvor du alligevel HAR brugt den, så dykkede jeg ind i Borlands Source (ExtCtrls.Pas). En TNotebook indeholder variablen \"FAccess\" som indeholder \"dens sider\", og det er denne du skal bruge for at få kunne indsætte dine componenter (i dit tilfælde TImage). Desværre er FAccess en privat variable der på ingen måde gøres public. Ligeledes så bruger TNoteBook internt en classe der hedder TPageAccess (heri \"gemmes\" de enkelte sider). Denne classe er defineret i unitens \"implementation-section\", og er derfor ikke brugbar \"fra din side\".

DESVÆRRE du har ikke med de forhåndenværende resourcer IKKE mulighed for at bruge en TNotebook til dit formål. Hvis du alligevel vil så er du nødt til at omskrive Borlands TNoteBook til at give dig de muligheder du har, men i sidste ende er det nok nemmere \"bare\" at bruge en TPageControl.

Ok... kan du så ikke fortælle hvordan man skjuler en PageControls faneblade 100% så den kan virke stort set ligesom en TNoteBook... så får du sq de 100 point

Ja nu har du jo give mig point\'ene så må jeg jo hellere udføre det \"betalte\" arbejde (jeg så at du ikke havde større held på \"dk.edb.programmering.pascal\").

Du starter med at \"sige\" at alle tabs skal gøre usynlige:
<SNIP>
for i := 0 to PageControl1.PageCount-1 do
    PageControl1.Pages[i].TabVisible := False;
</SNIP>

Dernæst (for at vælge aktive side), skriver du bare: \"PageControl1.ActivePage := TabSheet2;\"

Thats it !!!

Takker!!