Hi!
Verwende die Komponente ColorDialog von der Registerkarte Dialogs.
Hier ein Anwendungsbeispiel:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if ColorDialog1.Execute then
Form1.Color:=ColorDialog1.Color;
end;
Das umbauen auf deinen Pen schaffst du bestimmt
Ciao Frederic