TabSet Problem

[MrMyagi]

Moin allerseits,
und zwar möchte ich eine Art Menue über ein TabSet machen.
So weit so gut, jedoch wenn ich nun den 3. Tab, welchen ich habe
anklicke, möchte ich das das Label etc visible = true wird.
Das Problem dabei ist, das es erst nach mehrerem hin und herklicken
true wird und nich gleich beim klick auf den 3. Tab.

Hier mal der Quellcode:

Delphi-Quellcode:

procedure TForm1.TabSet1Change(Sender: TObject; NewTab: Integer;
  var AllowChange: Boolean);
begin
if TabSet1.TabIndex = 0 then
begin

//...

end;

if TabSet1.TabIndex = 1 then
begin

//...

end;

if TabSet1.TabIndex = 2 then
begin
//wird erst bei mhereren hin und herklicken ausgeführt
label1.Visible := true;
edit1.Visible := true;
Button1.Visible := true;
end;
end;

[mkinzler]

1. Würde ich ein case statt 3 Ifs nehmen.
2. Würde ich einen Redraw erzwingen

[MrMyagi]

Danke für die schnelle Antwort.
Was meinst Du mit einem Redraw?


mfG, Nico

[mkinzler]

Zitat:

Application.ProcessMessages;

[MrMyagi]

Und wie genau müsste ich das dort einbauen? :oops:

[mkinzler]

Delphi-Quellcode:

procedure TForm1.TabSet1Change(Sender: TObject; NewTab: Integer;
  var AllowChange: Boolean);
begin
case TabSet1.TabIndex of
0:
... 
2: 
  begin
    //wird erst bei mhereren hin und herklicken ausgeführt
    label1.Visible := true;
    edit1.Visible := true;
    Button1.Visible := true;
    Application.ProcessMesages;
  end;
...
end;

[MrMyagi]

Habe ich gemacht,
funktioniert aber leider immernoch nicht. :roll:


mfG, Nico

[mkinzler]

Hast du AllowChange auf true gesetzt?

[MrMyagi]

Welches AllowChange?:oops:
Bei dem TabSet habe ich kein AllowChange gefunden...

[mkinzler]

Ist ein Parameter der Event-Methode:

Delphi-Quellcode:

procedure TForm1.TabSet1Change(Sender: TObject; NewTab: Integer;
  var AllowChange: Boolean);

[MrMyagi]

Hmmm..
hab ich jetzt gemacht, leider funktionierts immernoch nicht.
Habe mal nen Screen drangehängt, vllt ist das mit
TabSet1.TabIndex = 2
ja falsch und es muss eigendlich ganz anders heißen oder so...
Also wie gesagt, bei klick auf "Fotos auf PC kopieren",
soll das Label etc visible := true werden.


mfG, Nico

[bluesbear]

Zitat:

Zitat von mkinzler

Application.ProcessMessages;

Das halte ich für einen schlechten Rat. Nach meiner Erfahrung bringt sowas nur "nicht nachvollziehbaren" Ärger :wink:
Der Grund, daß ich erst heute weiß, warum, ist ein Forumsbeitrag hier und die Tatsache, daß ich das schon seit sehr vielen Jahren nicht mehr verwende - da brauchte ich mir keinen Kopp zu machen 8)

[MrMyagi]

OK,
aber woran könnte es dann liegen?

[mkinzler]

Zitat:

Zitat von bluesbear

Zitat:

Zitat von mkinzler

Application.ProcessMessages;

Das halte ich für einen schlechten Rat. Nach meiner Erfahrung bringt sowas nur "nicht nachvollziehbaren" Ärger :wink:
Der Grund, daß ich erst heute weiß, warum, ist ein Forumsbeitrag hier und die Tatsache, daß ich das schon seit sehr vielen Jahren nicht mehr verwende - da brauchte ich mir keinen Kopp zu machen 8)

Exzessive Verwendung ist natürlich schlecht aber ich würde das nicht pauschal verteufeln.

[bluesbear]

Zitat:

Zitat von mkinzler

Exzessive Verwendung ist natürlich schlecht aber ich würde das nicht pauschal verteufeln.

Man gibt quasi die Kontrolle ab, was als nächstes passiert. Da kann an den harmlosesten Stellen im Code das Unvermutete passieren. Und das auch nur manchmal, ja nach Timing. Meistens geht es ja gut... Ist meine persönliche Meinung, aber für mich hat das wirklich teuflische Qualität: Hinterhältig, niederträchtig und gemein :wink:

[haentschman]

Guten Morgen... :-D

- ich habe zwar keine Erfahrung mit TabControl, denn ich benutze grundsätzlich PageControl vor allem auch aus optischen Gründen.

Wechsel mal das TabControl aus, und Deine Probleme sind Geschichte. :wink:

PS: eigentlich sollte das auch funktionieren, wie Du das vorgehabt hast...es gibt Dinge, die muß man nicht verstehen :-D

:hi:

[taaktaak]

Moin, Moin,
sehe ich auch so: PageControl ist besser. Die Initialisierungen für die einzelnen Seiten erfolgen dann in OnChange oder OnChanging des PageControls

[Capa]

is zwar schon älter aber is euch ma die variable Newtab aufgefallen ?
wenn nicht dann schaut ma genau hin ;) damit brauchst du dein tabindex nicht mehr

[DonManfred]

Code:

procedure TForm1.TabSet1Change(Sender: TObject; NewTab: Integer;
  var AllowChange: Boolean);
begin
if TabSet1.TabIndex = 0 then

Wieso prüfst du TabSet1.TabIndex??? Im Parameter NewTab bekommst du doch die id des Tabs, welchen du öffnen willst... Und der ist ja noch nicht geändert worden an der Stelle. Dem nach wäre in TabSet1.TabIndex "aktuell" ein falscher Wert...

Also:

Code:

procedure TForm1.TabSet1Change(Sender: TObject; NewTab: Integer;
  var AllowChange: Boolean);
begin
if NewTab = 0 then