Showmessage når en tab åbnes

Dit PageControl objekt har en OnChange event som udføres hver gang man skifter faneblad.

procedure TForm1.PageControl1Change(Sender: TObject);
begin
  ShowMessage('Du skiftede til fanebladet ' + PageControl1.ActivePage.Caption);
end;

hvis man sletter PageControl1.ActivePage.Caption virker det fint... men et er meningen at PageControl1.ActivePage.Caption skal vise hvilket faneblad der er skiftet til, ik?!

(Den siger Undeclared identifier: 'PageControl1')

men min ser også sådan ud;

procedure TForm1.TabbedNotebook2Change(Sender: TObject; NewTab: Integer;
var AllowChange: Boolean);
begin
  ShowMessage('Du skiftede til fanebladet ' + PageControl1.ActivePage.Caption);
end;

det er jo lidt galt... har prøvet at ændre PageControl1 --> TabbedNotebook2, men det virker stadig ikke?!

(ps jeg er rimelig ny i delphi - undskyld hvis jeg spørg om noget dumt / indlysende! :-))

PageControl1 er det navn den får hvis man ikke selv ændrer det. I dit tilfælde skal det så være som nedenstående:

ShowMessage('Du skiftede til fanebladet ' + TabbedNotebook2.ActivePage.Caption);

Så siger den : Record, object or class type required

???

Hov, overså lige du havde prøvet det ;)

Oppe i toppen af din kode der har du en "type" sektion hvor alle din objekter er nævnt. Hvad står der ud for TabbedNotebook2? TPageControl, TTabControl eller noget helt andet?

TabbedNotebook2: TTabbedNotebook;

jeg kan (nu) se at jeg har brugt de gamle Win3.1 og ikke Win32 til at lave det Tabs'ne... gør det nogen forskel?

Jeg har aldrig brugt de komponenter der er på Win3.1 tab'en, så ved ikke så meget om hvad forskellen er, men ville nok foretrække at bruge PageControl der er på Win32 tab'en.

Men du kan lave det samme med den du har brugt nu. Koden skal så bare være som nedenstående:

ShowMessage('Du skiftede til fanebladet ' + TabbedNotebook1.Pages[NewTab]);

super!!! det virker med det sidste du skrev! :-)

mht til at skifte til win32... kan det gøres på en nem måde?!? jeg har allerede lavet 7 tabs med MANGE edit-felter i hver!!!... så at starte helt forfra vil være for besværligt! er der en super nem måde?? (formentlig ikke :-(  !)

Du kan prøve at tilføje en PageControl til din form, og så lave de 7 tabs igen. Derefter vælger du så alle komponenter (men ikke selve tab'en) på den gamle tab, og trykker på CTRL + C for at kopiere dem. Derefter vælger du så den nye tab (vigtig at du rammer selve indholdet af tab'en og ikke selve det øverste af tab'en eller PageControl'en) og så trykker du på CTRL + V for at paste dem ind.

Hvis du er heldig, så lykkedes det for dig :)

det vil jeg prøve! :-)

tak for hjælpen!