Panels einfärben (über das gleiche Popupmenü)

[BeBored]

Zitat von DeddyH:

Delphi-Quellcode:

procedure TForm1.Rot1Click(Sender: TObject);
begin
  if PopupMenu1.PopupComponent is TPanel then //sicherheitshalber
    TPanel(PopupMenu1.PopupComponent).Color := clRed;
end;

Wie gesagt, im OI den Panels das Popupmenü zuweisen. Zur Not stell ich ein Beispielprog online

Danke für deine Hilfe, das funktioniert wunderbar!