Anfänger braucht Hilfe (Tlistbox)

[Gerald Beitzen-Heineke]

nicht mehr von interesse

[Jens Schumann]

Hallo Gerald,<br> nach reiflicher Überlegung bin ich zur Überzeugung gekommen, daß Dir nichts anderes übrig bleibt, als die Items Eigenschaft zu redefinieren. TListbox.Items wird zwar als TStrings deklariert aber als TListboxItems erzeugt. Von TListboxItems kann man eigentlich keinen Nachfahren erzeugen, da dieses Objekt im Implementation Abschnitt der classes unit deklariert ist.<br>
:-) Jens Schuman

[Hagen Reddmann]

Definiere Deine eigene TListBox Classe

<pre>

type
TMListBox = class(TListBox)
protected
procedure LBAddString(var Msg: TMessage); message LB_AddString;
procedure LBInsertString(var Msg: TMessage); message LB_InsertString;
end;

procedure TMListBox.LBAddString(var Msg: TMessage);
var
S: String;
begin
S := PChar(Msg.lParam);
if Length(S) > 10 then
begin
Setlength(S, 10);
Msg.lParam := Integr(PChar(S));
end;
inherited;
end;

procedure TMListBox.LBInsertString(var Msg: TMessage);
var
S: String;
begin
S := PChar(Msg.lParam);
if Length(S) > 10 then
begin
Setlength(S, 10);
Msg.lParam := Integr(PChar(S));
end;
inherited;
// in Msg.wParam ist der Index andem der String eingefügt werden soll
end;

</pre>

Gruß Hage