问题大集合,请各位都来看看哈,跪求赐教 ( 积分: 50 )

  • 主题发起人 星幻子
  • 开始时间

星幻子

Unregistered / Unconfirmed
GUEST, unregistred user!
1: listview的ViewStyle为vsReport时,如何移动其中的项?
2: ACSII码和DELPHI的虚拟键值有何区别,为什么在onkeydown和onkeypress事件中接收不到F1 F2之类的消息?
3: 从哪里可以得到诸如WM_MOUSEMOVE的windows消息的相关资料?
4: 像一些API诸如RealizePalette的信息从哪里可以得到(Delphi帮助没有)?
5: 哪里有关于HDC和HGLRC还有DC的相关信息?
6: 当一个窗体不是MainForm时,它最小化时是到任务栏上面而不是任务栏, 如何改变?
7: 用Canves画了个图象后,如何移动它?
就50分了呵呵
 
1: listview的ViewStyle为vsReport时,如何移动其中的项?
2: ACSII码和DELPHI的虚拟键值有何区别,为什么在onkeydown和onkeypress事件中接收不到F1 F2之类的消息?
3: 从哪里可以得到诸如WM_MOUSEMOVE的windows消息的相关资料?
4: 像一些API诸如RealizePalette的信息从哪里可以得到(Delphi帮助没有)?
5: 哪里有关于HDC和HGLRC还有DC的相关信息?
6: 当一个窗体不是MainForm时,它最小化时是到任务栏上面而不是任务栏, 如何改变?
7: 用Canves画了个图象后,如何移动它?
就50分了呵呵
 
啊!!!!!!!!!!!
 
怎么没人回答
 
1.在OnDragOver里写

2.KeyDown收到的键值是DWORD,KeyPress收到的键值是Char型扫描码,你可以用如下程序来获取:
procedure TForm1.mmoTestZoneKeyDown(Sender: TObject
var Key: Word;
Shift: TShiftState);
begin
mmoTestZone.Text := Chr(Key);
lbledtKeyDownASC.Text := Chr(Key);
lbledtKeyDownDEC.Text := IntToStr(Key);
lbledtKeyDownHex.Text := '$' + IntToHex(Key, 1);
lbledtVirtualKey.Text := GetVirtualKey(Key);

with lblShift.Font do
if ssShift in Shift then
Color := clRed
else
Color := clGray;

with lblAlt.Font do
if ssAlt in Shift then
Color := clRed
else
Color := clGray;

with lblCtrl.Font do
if ssCtrl in Shift then
Color := clRed
else
Color := clGray;

Key := $00;
end;

3.MSDN里,很详细

4.MSDN里,很详细

5.还是。。。MSDN

6.用第三方控件吧CoolTrayIcon
http://www.ddvip.net/program/delphi/index5/451.htm
或者BusinessSkinForm,都有。要深究的话可以解读一下它们的源码

7.自己创建一个类,就可以响应拖动了:)
 
补充,第二点在大富翁论坛里已经讨论的非常透彻了哈,搜索keypress keydown关键字就可以了:)
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
回复
0
查看
1K
天地弦
I
回复
0
查看
512
import
I
后退
顶部