J
juexing
Unregistered / Unconfirmed
GUEST, unregistred user!
如题,我现在想双击tabsheet的页头显示对话框,
我昨天做的一个是不在tabsheet页头也显示,这样不太好.
我昨天做的一个是不在tabsheet页头也显示,这样不太好.
C
caijing28
Unregistered / Unconfirmed
GUEST, unregistred user!
重载WndProc
verride;过程，中间定义两个局部变量一个Msg:TMessage 一个sender:TObject,
if (sender=Tabsheet1) and (Msg=WM_LBUTTONDBLCLK) then
begin
///你的窗口
end;
verride;过程，中间定义两个局部变量一个Msg:TMessage 一个sender:TObject,if (sender=Tabsheet1) and (Msg=WM_LBUTTONDBLCLK) then
begin
///你的窗口
end;
J
juexing
Unregistered / Unconfirmed
GUEST, unregistred user!
楼上的,不行哦,
页头指的是pagecontrol呢,tabsheet是下面的,我之前有试过,不行呢.
页头指的是pagecontrol呢,tabsheet是下面的,我之前有试过,不行呢.
B
boy2002cn
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.PageControl1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Shift = [ssLeft,ssDouble] then
showmessage('双击');
end;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Shift = [ssLeft,ssDouble] then
showmessage('双击');
end;