delphi 如何调用windows系统颜色板

如题

---

帮顶

---

Delphi(Pascal) code:
var
Pal: HPalette;
LogPal: TMaxLogPalette;
DC: HDC;
count: Integer;
begin
DC := GetDC(0);
// 获取当前屏幕的调色板
Pal := CreateHalftonePalette(DC);
// 获取当前屏幕的调色板的颜色表
count := GetPaletteEntries(Pal, 0, 256, LogPal.palPalEntry);
// 下面这个函数调用失败，可能是我的显示器设置不是256色的原因
// count := GetSystempaletteEntries(DC, 0, 256, LogPal.palPalEntry);
ShowMessage(IntToStr(count));
DeleteObject(Pal);
ReleaseDC(0, DC);
end;

---

楼主的意思是不是调出系统调色板的窗口来？

---

恩，是的

---

Delphi(Pascal) code:

procedure TForm1.Button1Click(Sender: TObject);
begin
if colordialog1.Execute then
begin
end;
end;

---

procedure TForm1.Button1Click(Sender: TObject);
begin
  if colordialog1.Execute then
  begin
  edit1.Font.Color:=colordialog1.Color;
  end;
end;
不知，是不是这样？

---

楼上的colordialog1.Execute是什么？

---

colordialog是按件