Wenn dies Ihr erster Besuch hier ist,
lesen Sie bitte zuerst die Hilfe - Häufig gestellte Fragen
durch. Sie müssen sich vermutlich registrieren,
bevor Sie Beiträge verfassen können. Klicken Sie oben auf 'Registrieren', um den Registrierungsprozess zu
starten. Sie können auch jetzt schon Beiträge lesen. Suchen Sie sich einfach das Forum aus, das Sie am meisten
interessiert.
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
Comment