如题

解决方案 »

  1.   

    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;
      

  2.   


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

  3.   

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

  4.   

    楼上的colordialog1.Execute是什么?