Drag and drop onto the 'TAB' of a non visible tabsheet

meikl, you've already answered a question like this! :))

Diono: Follow https://www.experts-exchange.com/questions/10200281/Mouseover-a-Tab-in-a-TTabControl.html#1952853

F68 ;-)

Tried that. The event does not fire.

Wich event? There're not events in the accepted code....

phew, long time ago (5 years) . . . guess coded with d3

well, the api is not needed,
since the two methods mentioned above are introduced,
but should also work without any change

meikl ;-)

>Tried that. The event does not fire.
maybe you should explain from where you do what drag

Firstly, I am using a PageControl with 2 tabsheets
From a TreeView, which has its alignment set to alClient, I want to drag(anything) over the other tabsheets 'TAB' and be able to accept the drag. I declared the following to test:-

procedure TMainForm.pcSMSDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  accept := true;
  showmessage('dragged over');
end;

But the event does not seem to be fired.

hmm, should work

sorry, no delphi on hand, so cannot test myself,
will try this evening, if not solved then

meikl ;-)

I should try this way....

procedure TForm1.PageControl1DragDrop(Sender, Source: TObject; X,
  Y: Integer);
var
  Info : TTCHitTestInfo;
  Tab : Integer;
begin
  Info.pt := Point(x,y);
  Tab := PageControl1.Perform(TCM_HITTEST,0,LongInt(@Info));
  if Tab > -1 then
    Pagecontrol1.ActivePage := PageControl1.Pages[Tab];
    showmessage('Dragged');
end;

procedure TForm1.PageControl1DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
if (Sender is TPageControl) then Accept := True;
end;

Thanks guys. Seeing as Kretzschmar was first with an answer, and it works, I will award him the points. In closing, the reason the pagecontrol would not accept the dragover was because I was doing an ole drag. Can this type of drag be accomodated in delphi? I m dragging from Mike's VirtualStringTree. I changed the drag type to VCLDrag.

Thanks.

Check out

[article] http://www.wideman-one.com/gw/tech/Delphi/dragdrop/
[article] http://users.iafrica.com/d/da/dart/zen/Articles/DropPaste/DropPaste.html
[component] http://www.unitoops.com/default.htm

Thanks all.

??
Nothing to say about your choice Diono, but in my opinion, if you think that meikl has answered your question, you should had at least accepted this one https://www.experts-exchange.com/questions/21138815/Drag-and-drop-onto-the-'TAB'-of-a-non-visible-tabsheet.html#12110768

Sorry. None at all.  I pressed the accept button before realising it was the right person, but wrong answer.

Dion.