Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Thom,
30. Jun 2011
Entschuldigung, wenn ich noch einmal nerve, aber mir hat die ganze Sache keine Ruhe gelassen und ich habe es noch einmal gestest:
function ScrollBarEnabled(Wnd: HWnd; Vert: Boolean): Boolean;
var
ScrollBarInfo: TScrollBarInfo;
IdObject: Integer;
begin
ScrollBarInfo.cbSize:=Sizeof(TScrollBarInfo);
if Vert
then IdObject:=OBJID_VSCROLL
else IdObject:=OBJID_HSCROLL;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Thom,
30. Jun 2011
Hmm... Das verstehe ich jetzt nicht.
Deine Frage bezog sich doch darauf, ob eine Scrollbar eines TMemo's aktiv ist, oder nicht (sichtbar ist sie ja leider permanent)!?
Und das kann man doch sehr gut mit ScrollBarInfo.rgstate überprüfen?
Das funktioniert bei mir (Delphi XE, XP) ganz hervorragend:
function ScrollBarEnabled(Wnd: HWnd; Vert: Boolean): Boolean;
var
ScrollBarInfo:...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Thom,
30. Jun 2011
Werde ich machen!
Aber mir ist gerade etwas anderes aufgefallen:
In einem TMemo werden bei ScrollBars:=ssBoth immer beide Leisten angezeigt, auch wenn sie nicht notwendig sind (dann eben nur deaktiviert). TMemo kennt ja irgendwie kein automatisches Ein- und Ausblenden der Scrollbars.
Insofern ist mein Vorschlag, die Clientgröße des Fensters zu testen, völliger Unsinn, da die Leisten immer...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Thom,
30. Jun 2011
Ja, das ist leider wahr (zumindest kenne ich keine derartige Lösung)... Da wünsche ich Dir viel Erfolg!
Viele Grüße