S smiledog Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-29 #1 我的listbox怎么不能用右键来选定？ 我的listbox支持多选的，另外我在onmousedown中 判断item是位置后，改变其selected的值为true还是不行！
A ArJianzeng Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-29 #3 procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var APoint: TPoint; Index: integer; begin if Button = mbRight then begin APoint.X := X; APoint.Y := Y; Index := ListBox1.ItemAtPos(APoint, True); ListBox1.Selected[Index] := True; end; end;
procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var APoint: TPoint; Index: integer; begin if Button = mbRight then begin APoint.X := X; APoint.Y := Y; Index := ListBox1.ItemAtPos(APoint, True); ListBox1.Selected[Index] := True; end; end;
S smiledog Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-29 #4 to ArJianzeng 谢谢你，你的方法我试了不行
S smiledog Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-29 #5 我做的实际上是一个类似东方影都的flash播放器，我的第二个问题是 我要用esc来将最大化的播放窗口（非主窗口）恢复 我将主窗口的keypreview设为true后，可以做到，但是必须先点击主窗口 怎样才能先让主窗口获得焦点。我用过setfocus，bringtofront等就是不行
我做的实际上是一个类似东方影都的flash播放器，我的第二个问题是 我要用esc来将最大化的播放窗口（非主窗口）恢复 我将主窗口的keypreview设为true后，可以做到，但是必须先点击主窗口 怎样才能先让主窗口获得焦点。我用过setfocus，bringtofront等就是不行
