Hallo,
nach
diesem Tutorial habe ich folgenden Code zusammengebastelt:
Delphi-Quellcode:
var i:Integer;
const
// The maximum number of Tabs
// Die Anzahl der maximal aufretenen Tabs eintragen
MAX_TABS = 4;
Tab = #9;
var
Tabulators: array[0..MAX_TABS] of Integer;
begin
for i:=0 to 10 do begin
Tabulators[0] := 70;
Tabulators[1] := 120;
Tabulators[2] := 100;
Tabulators[3] := 80;
lstPlaylist.TabWidth := 1;
SendMessage(lstPlaylist.Handle, LB_SETTABSTOPS, MAX_TABS, Longint(@Tabulators));
lstPlaylist.Items.Add('Peter' + Tab + 'Meier' + Tab + '1234-56' + Tab + 'Otzlingen');
lstPlaylist.Items.Add('Johann Jones' + Tab + 'Krauter' + Tab + '123-45');
end;
Die Schleife gibt natürlich EIGENTLICH keinen Sinn, aber der "Kontext" würde hier nur verwirren...
Aber es funktioniert nicht!
Wenn ich es in eine Button-OnClick-Methode hineinschreibe, funktioniert es komischerweise. Die Methode oben wird aber 100%ig aufgerufen, denn andere Dinge in der Metzhode werden auch ausgeführt...
Sehr sehr komisch, da es ja wie gesagt "unter anderen Umständen" ohne Probleme klappt...
Weiß irgendwer eine Lösung?
Ich sag schonmal Vielen Dank!
Johannes