Maus-transparente Komponente

[hathor]

Zitat von achi 3.0:

Hallo,

habe momentan das gleiche Problem. Ist es möglich diese funktion auf eine standard Paintbox zu übertragen? Wenn ja wie denn, irgendwie bekomme ich es nicht hin eine neue komp zu erstellen.

Gruß

Vielleicht geht es mit einem PageControl (PC1):
(Ich habe in einem Projekt viele Tabs und darauf bis zu 9 Images.)

Delphi-Quellcode:

procedure TForm1.PC1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var r : TPoint;
begin            
GetCursorPos(r);
Label2.Caption:= INTTOSTR(r.X) +' - '+ INTTOSTR(r.Y);
end;