help
解决方案 »
- 急**********各位大虾救命啊!!!用WebBrowser打开word,excel文件,如何将那些工具栏、游标、滚动条隐藏啊?
- 三层结构的问题
- DBGridEh列尾合计不能自动刷新的问题!
- d7中有个组件是windowsmediaplayer,请问如何使用?
- 控制word的问题
- 鉴于CSDN关门这几天给大家带来的精神上的,利益上的损失给每人多加300分可用分作为补偿!
- 请问现在做像汽车票的报表,一般采用什么形式?
- 创建Access表的问题在线等待
- 如何使用WAV文件?
- 在DELPHI区中的VCL控件titan.zip的序列号是???
- TCPSERVER的ONExecute事件为什么一有客户连接就执行了1797次?
- 可否在线程执行时,在主进程中修改线程的值?
procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var pt: TPoint;
begin
if ssRight in Shift then begin
GetCursorPos(pt);
pt := ListBox1.ScreenToClient(pt);
ListBox1.ItemIndex := ListBox1.ItemAtPos(pt, True);
end;
end;另外,这问题怎么是在非技术区提问?
procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ssRight in Shift then
ListBox1.ItemIndex := ListBox1.ItemAtPos(Point(X,Y), True);
end;
Shift: TShiftState; X, Y: Integer);
var
i:integer;
MousePos:TPoint;
begin
MousePos.X :=X;
MousePos.Y :=Y;
if Button = mbRight then
begin
i := ListBox1.ItemAtPos(MousePos,False);
ListBox1.ItemIndex:=i;
end;
end;