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?

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


mfG, Nico

[mkinzler]

Hast du AllowChange auf true gesetzt?

[MrMyagi]

Welches AllowChange?
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);