PageControl

[Luckie]

Genau mit der Tag-Eigenschaft werden die Sheet identifiziert.

[Privateer3000]

Zu früh gefreut.
Nichts passiert beim Click auf einen Sheet...aber auch keine Fehlermeldung!!

Weder beim Compilieren noch im laufenden Programm.

Was fehlt noch??

[Luckie]

Wenn ich dir jetzt sage: "Sollte aber.", dann hilft dir das auch nicht viel oder ?

Im Code von Chrischii sehe ich leider auch keinen Fehler . Hast du das Ereignis zu gewiesen?

[Privateer3000]

ok hier die ganze Unit

Code:

unit Unit5;

interface

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

type
  TForm5 = class(TForm)
    RichEdit1: TRichEdit;
    Label1: TLabel;
    PageControl1: TPageControl;
    procedure FormCreate(Sender: TObject);
    procedure Myclick (Sender: TObject);
    private
    { Private-Deklarationen }
  public

  end;

var
  Form5: TForm5;


implementation

{$R *.DFM}


procedure TForm5.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 TForm5.Myclick (Sender: TObject);
begin
     if Sender is TTabsheet then
     case TTabsheet(Sender).Tag of
     0 :  ShowMessage('Jawoll');
     end;
   end;

die letzte porcedure ist noch nicht vollständig..jaja
aber trotzdem müsste beim click auf den 1. Tabsheet die Mesaage kommen

[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.

[Privateer3000]

Mag Dich DEIN Compi mehr als mich meiner??
Bei mir passiert garnichts.Weder beim Show noc beim Klick.
ISt zum verrückt werden...

[Luckie]

Delphi 5 Entendreck, Win2000 Sp2, 500'er Celeron, 384 MB Ram, DiamondViper V770 32 MB.

Mach mal ein ganz neues Projekt und nim mal nur meinen Code. Wenn das geht, dann machst du irgend wo noch was anderes.

[Privateer3000]

wenn ich deinen Code in einen neuem Projekt verwende werden die Tabsheets garnicht erzeugt..mmmmhh

[Luckie]

Jetzt mach mich aber nicht irre. Da beschweren sich schon Leute, weil du meine Postingzahl nach obentreibst . Warte ich schicke dir das mal per Mail. Dauert nur einen Moment, muß das noch mal programmieren.

[Privateer3000]

Zitat von Luckie:

Da beschweren sich schon Leute, weil du meine Postingzahl nach obentreibst

nach oben treiben??
Punkt A: Ist das hier ein Forum oder eine "Ichhabe mehrpostingsalsduätsch" Wettbewerbsverein?
Punkt B: Wenn sowas Gegenstand der Diskussion wird sollte man es abschaffen
Punkt C: Wenn das alles nichts hilft, bin ich hier wohl falsch