Zitat von
PinkFloydFan:
Ja, das ist richtig, die GroupBox befindet sich auf TabSheetXXX eines PageControl's..
Dann musst du den Code wohl im onMouseUp Ereignis von TabSheetXXX machen:
Delphi-Quellcode:
procedure TForm1.TabSheetXXXMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if TabSheetXXX.ControlAtPos(TabSheetXXX.ScreenToClient(mouse.CursorPos), true, true)= Groupbox1 then
showmessage('Warnung');
end;
EDIT:
if TabSheetXXX.ControlAtPos(Point(X, Y), true, true)= Groupbox1 then
würde im onMouseUp Ereignis natürlich auch reichen.