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是按件
相关问答：
我在模块里自定义了一个函数:stradd()
可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...
这个问题有什么办法可以解决的吗? 非常感激!
(在A ......
delphi 异步线程怎么怎么实现？
请各位大佬帮忙！
最好有个实例！
多谢
你不同步就是异步了,还写啥
默认情况下，线程就是异步的…………*^_^*
估计楼主同步和异步概念都没弄清
真无语。。可 ......
Delphi
怎样获取网页部分内容（代码），并且显示出来！
（只是网页里面的一部分内容并不是全部）
没弄懂！
类似websever的功能？
估计是利用ie的接口。。。。。。。。
是类似websever的功能 ......
昨晚在Delphi数据库查询中遇到了一个疑惑。代码如下：
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxx ......
这个属性怎么用啊？
我想实现如下功能：在dbgrideh中按下箭头，如果当前指针停留在相应列上，就列出预设的几个选项，供用户选择（与combobox）类似
请问，用dropdownlist可否实现？
新手，帮你UP下 人气。
......
