Event für Komponente die während der Laufzeit erstellt wurde

**ledoerr**

Hallo ihr dadrausen im weiten Netz

vielleicht könnt ihr mir bei einem kleinem Problem helfen.

Ich habe eine Komponente während der Laufzeit erstellt und möchte diese jetzt verschieben können.

das verschieben einer von anfang an bestehenden Komponente ist kein problem.

markieren

Delphi-Quellcode:

			    Procedure pvsMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

    procedure pvsMouseUp(Sender: TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

    procedure pvsMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

Das verschieben wird über diese drei Proceduren gesteuert, sie sind jeweils mit dem entsprechenden Event der komponente gekoppelt. (diese Komponente besteht schon von anfang an)

Jetzt sagt der Benutzer er möcht noch X zusätliche Komponenten des selben typs, diese müssen auch verschiebbar sein.

hier die erstellung der Komponenten :

zusammenfalten · markieren

Delphi-Quellcode:

			
 myLabel := TpsvTransLabel.Create(Labels);

   myLabel.Parent := Form2;

   myLabel.Name := Name;

   myLabel.Caption := Caption;

   myLabel.Width :=  width;

   myLabel.Height := height;

   myLabel.Left := Left;

   myLabel.Top  := Top;

   myLabel.Paint;

   myLabel.OnMouseDown := ????;

   myLabel.OnMouseUp := ????;

   myLabel.OnMouseMove:= ????;

Also was genau muss an die stelle der ???? . Klar das da der aufruf hin muss aber wie muss der aussehen wenn ich diese Proceduren aufrufen möchte

markieren

Delphi-Quellcode:

			    Procedure pvsMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

    procedure pvsMouseUp(Sender: TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

    procedure pvsMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

vielen Dank im voraus

ledoerr

Event für Komponente die während der Laufzeit erstellt wurde

Event für Komponente die während der Laufzeit erstellt wurde

Forumregeln