Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by HCB,
18. Feb 2023
Hallo Himitsu,
vielen Dank nochmal für Deine Unterstützung. Ich bekomme das einfach nicht hin.
Sowohl
clickedTab := TComponent(msg.LParam).Owner;
if (clickedTab = TabSheet1) or (clickedTab = TabSheet2) or (clickedTab = TabSheet3) then
TTabSheet(clickedTab).TabVisible := False;
als auch
clickedTab := TComponent(msg.LParam).Owner;
if clickedTab is TTabSheet then
...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by HCB,
17. Feb 2023
Danke Himitsu für die schnelle Hilfe:
Ich seh den Wald vor lauter Bäume nicht, hab gar nicht so genau auf die Groß- und Kleinschreibung beim String geachtet (Tabsheet1 / TabSheet1):oops: Wieder was zu gelernt.
Jetzt hab ich nur noch ein Problem, dass sich der Index verschiebt. Ich wollte den angeklickten Tab auf Visible:= false setzen, funktioniert bis zum letzten Tab, der dann Tabsheet1 wird,...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by HCB,
17. Feb 2023
Danke Himitsu für deine Hilfe.
> Oder steht da wirklich nur der eine Komponentenname im Path?
Es steht nur Tabsheet1 in der Variable ClickedTab, siehe screeshot.
>if TComponent(msg.LParam).Owner is TabSheet1 then
lässt sich nicht kompileren wegen Fehler, siehe Screenshot.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by HCB,
17. Feb 2023
Hallo Leute,
ich probiere eine StringVariable auszuwerten:
var ClickedTab: String;
begin
clickedTab:=TComponent(msg.LParam).Owner.GetNamePath;
showMessage(clickedTab);
Hier wird die Variable clickedTab korrekt als Tabsheet1 angezeigt!!
Wenn ich diese aber anschließend hier auswerten möchte mit