Forum: Object-Pascal / Delphi-Language
Delphi
by HolgerCW,
1. Apr 2008
Alles klar,
aber in diesem Thread habe ich echt ein wenig zu viel mir selber geantwortet.
Werde demnächst drauf achten ...
Gruss
Holger
Forum: Object-Pascal / Delphi-Language
Delphi
by HolgerCW,
1. Apr 2008
OK, wusste ich jetzt noch nicht. Mein Fehler. Hätte genauer die Regeln lesen sollen.
Wird denn auch ein nacheditierter Beitrag wieder als aktuell in die Liste gestellt ?
Forum: Object-Pascal / Delphi-Language
Delphi
by HolgerCW,
1. Apr 2008
Für diese Lösung habe ich nun 2 Tage gebraucht :(
Diese kommt an den Anfnag der Procedure, welche am Anfang dieses Themas dargestellt wurde.
var
I, Unsichtbar, Ende, Anpassung: Integer;
//Unsichtbare Tabs übergehen
Unsichtbar := 0;
Ende := 0;
Forum: Object-Pascal / Delphi-Language
Delphi
by HolgerCW,
1. Apr 2008
Hat da keiner eine Lösung ???
Forum: Object-Pascal / Delphi-Language
Delphi
by HolgerCW,
1. Apr 2008
Wenn ich dieses am Anfang der Procedure mache:
//Unsichtbare Tabs übergehen
Unsichtbar := 0;
for I := 0 to Der_TabIndex do
begin
If PageControl.Pages.TabVisible = FALSE then
Forum: Object-Pascal / Delphi-Language
Delphi
by HolgerCW,
1. Apr 2008
Ja, aber wie mache ich das denn nun ?
Komme da nicht weiter ...
Forum: Object-Pascal / Delphi-Language
Delphi
by HolgerCW,
1. Apr 2008
X1, Y1 war nur zur Anpassung der Postition fest vorgegeben.
Ich denke es geht genau um diese Berechnung, oder ? Aber wie mache ich die ?
Oder kann ich auch über den TabIndex irgendwie gehen ?
Forum: Object-Pascal / Delphi-Language
Delphi
by HolgerCW,
1. Apr 2008
Hallo zusammen,
ich starte hier noch einmal einen Versuch ...
Hier schonmal mein Code: (Diese Procedure wird mit dem OnDrawTab-Ereignis von einem TPageControl aufgerufen)
procedure Berechtigung_Tab_zeichnen(PageControl: TPageControl; Berechtigt: Boolean;Control: TCustomTabControl; Der_TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
Beschriftung: String;