如题
解决方案 »
- 求纯API实现socket连接server client代码
- 当本应用程序最小化后,如何捕获屏幕上其它软件界面上的单击、双击、右击、拖放事件?
- 導出數據庫查詢內容為Excel時,同樣的查詢結果,為什麼有的電腦有數據,有的沒數據只是空的(只有表頭)?
- 有关于MDI的调用问题
- 如何知道一个小数除0.5后是否为整数?如7.5/0.5为整数,7/0.5就不为整数了?
- 关于基于ACCESS的网络开发,整体结构怎么搞才好?
- 大学还剩一年,我该怎么走呢?方向是数据库好呢还是网络应用好些。
- 请问怎么样隐藏dbgrid的一列?
- 如何取得数据库中的视图列表?
- 组件开发的问题
- 怎么让按钮的字变颜色啊?
- 一条 简单 Sql语句问题(SqlServer环境)
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;
procedure TForm1.Button1Click(Sender: TObject);
begin
if colordialog1.Execute then
begin
end;
end;
begin
if colordialog1.Execute then
begin
edit1.Font.Color:=colordialog1.Color;
end;
end;
不知,是不是这样?