Ja, das böse With. Ich nutze es eigentlich fast seit Anfang. Es erleichtert das Programmieren ungemein, spart Tipparbeit, macht Codes übersichtlicher. Ich habe in den Jahren nur ein einziges Mal Probleme, zufällig vor paar Tagen. Da bin ich an dem Ding verzweifelt, obwohl man, wenn man es weiß, sich fragt wieso, denn es ist so offensichtlich, nur habe ich es nicht gesehen. Manchmal sieht man vor lauter Bäume den Wald nicht.
Delphi-Quellcode:
procedure TForm1.ListBox1MeasureItem(Control: TWinControl; Index: Integer;
var Height: Integer);
begin
with ListBox1 do
begin
//irgendwas
Height := 30;
end;
end;