Sowas nervt!
Delphi-Quellcode:
AItem := TMenuItem.Create(TDbAltGridEx(Sender).PopupMenu);
with AItem do
begin
Caption := '-';
end;
TDbAltGridEx(Sender).PopupMenu.Items.Insert(1, AItem);
Der Cast ist ja ok, aber 3 Zeile sinnlosestes with..do ???
Allgemein nervt with..do (vor allem verschachtelt über 500++ Zeilen)
Immerhin ist bei uns with..do seit geraumer zeit verboten (sind halt noch die Altlasten und Fremdkomponenten)