Habe es gerade auch rausgefunden:
Delphi-Quellcode:
procedure TMainForm.grer1Click(Sender: TObject);
begin
If PopUpMenu1.PopupComponent is TMemo then (PopupMenu1.PopupComponent as TMemo).Font.Size := (PopupMenu1.PopupComponent as TMemo).Font.Size+1
else If PopUpMenu1.PopupComponent is TListBox then (PopupMenu1.PopupComponent as TListBox).Font.Size := (PopupMenu1.PopupComponent as TListBox).Font.Size + 1;
end;
Das funktioniert nun.
Vielen Dank an euch, die ihr um diese Zeit noch anderen helft.
Gute Nacht,
der BetaBot.