Listbox disabled aber scrollbar

[Andreas Käding]

Wie schaffe ich es das eine Listbox disabled ist aber trotzdem scrollbar bleibt?

M.f.G. Andreas Käding

[Nico Bendlin]

am einfachsten, indem Du die TListBox in eine TScrollBox packst.

-nic

[Jürgen Wollenberg]

Hallo Andreas, ich habe eine viel bessere Idee:<P/>
Warum fügst du in deiner Listbox nicht ein Bevel ein?<P/>
Bei mir hat das sehr gut bei einer MemoBox gefunkt, vorallem der Gag ist bei mir, den Text kann man scollen wie man will aber selektieren und kopieren des Textes sind nicht möglich, hier meine Lösung:<P/>
<PRE>
procedure TForm1.FormCreate(Sender: TObject);
begin
Bevel:=TBevel.Create(self);
Bevel.Parent:=Memo1;
Bevel.Height:=Memo1.ClientHeight;
Bevel.Width:=Memo1.ClientWidth;
Bevel.Visible:=true;
Bevel.Enabled:=true;
Bevel.Style:=bsRaised;
Bevel.Shape:=bsBox;
end;

</PRE>
Also bei hat es geklappt, kannst dich ja mal melden obs bei dir gefunkt hat oder nicht!<P/>
<P/>
Tschüß Jürge

[Uli Becker]

Hallo,

Ein Bevel ist dafür weniger geeignet, da es einen zusätzlichen Rand hinzufügt.

<pre>
procedure SetUnTouchable(c: TWinControl; f: TForm);
var Dummy : TShape;
begin
Dummy := TShape.Create(f);
with Dummy do
begin
Parent := c;
height := c.ClientHeight;
width := c.ClientWidth;
brush.Style := bsClear;
pen.Style := psClear;
end;
end;
</pre>

Z.B.: SetUnTouchable(memo1,self);

Gruß Ul