PageControl

[Luckie]

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure Myclick (Sender: TObject);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var 
  i: integer; 
begin
  PageControl1.MultiLine := True;
  with PageControl1 do 
    for i := 0 to 12 do
      with TTabSheet.Create(Self) do 
      begin 
        PageControl := PageControl1; 
        Caption := IntToStr(Pages[i].TabIndex); 
        case Pages[i].Tabindex of
          0 :
            begin
              Caption :='Einleitung';
              OnShow := MyClick;
              Tag := 0;
            end;
          1 : Caption :='Gerechtigkeitsstreben';
          2 : Caption :='Kampfbereitschaft';
          3 : Caption :='Sicherheitsstreben';
          4 : Caption :='Harmoniebedürfnis';
          5 : Caption :='Fröhlichkeit';
          6 : Caption :='Fremdbestimmung';
          7 : Caption :='Sentimentalität';
          8 : Caption :='Hilfsbereitschaft';
          9 : Caption :='Intellektualität';
          10 : Caption :='Erfolgswille';
          11 : Caption :='Sensibilität';
          12 : Caption :='Selbstbestimmung';
        end;
     end;
end;

procedure TForm1.Myclick (Sender: TObject);
begin 
  if Sender is TTabsheet then
    case TTabsheet(Sender).Tag of
      0 :  ShowMessage('Jawoll');
    end;
end;

end.

Ohne Problem. Die Messagebox kommt beim Erzeugen, weil da auch schon OnShow aufgerufen wird und wenn du den Tab wechselst und wieder auf "Einführung" klickst.