nicht mehr von interesse
Announcement
Collapse
No announcement yet.
Anfänger braucht Hilfe (Tlistbox)
Collapse
X
-
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
-
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
Comment
Comment