Hallo!
Ich habe folgendes Problem:
Wenn ich ein Fenster (Form2) über ein Panel schiebe, will ich OnDragXXXX Ereignisse auslösen.
Mein Problem ist, es pessiert nichts. Ich habe Eventhandler der folgenden Form für jedes OnDragXXXX Ereignis geschrieben:
Delphi-Quellcode:
unit Unit1;
uses
//<Die VCL Units>,
Unit2;
//Die mit Form2
type
TForm1 =
class(TForm)
Panel: TPanel;
//Hier sollen die Ereignisse ausgelöst werden
procedure FormCreate(Sender: TObject);
procedure PanelDragOver(Sender: TObject);
procedure PanelDragDrop(Sender: TObject);
procedure PanelEndDrag(Sender: TObject);
private
{ private Deklarationen }
public
{ public Deklarationen }
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Form2.Visible := true;
//wird schon beim Start erzeugt (Application.CreateForm(....))
end;
procedure TForm1.PanelDragOver(Sender: TObject);
begin
ShowMessage('
OnDragOver');
end;
procedure TForm1.PanelDragDrop(Sender: TObject);
begin
ShowMessage('
OnDragDrop');
end;
procedure TForm1.PanelEndDrag(Sender: TObject);
begin
ShowMessage('
OnEndDrag');
end;
Auf diese Weise will ich feststellen, wann welches Ereignis eintritt. Aber es passiert NICHTS.
Keine der Messages wird angezeigt.
Die OnMouseXXX funzen, wenn ich nur mit dem Mauszeiger über dem Panel bin. Wenn ich Form2 mit der Maus anfasse und über das Panel schiebe, bleibt das Panel stumm. Warum. Was muß ich machen, um die Ereignisse so auszulösen, wie es der obige Quelltext suggeriert. Muß ich etwa dieselben Ereignisse aus Form2 verwenden, um mein Zeil zu erreichen?
Warte verzweifelt auf Eure Hilfe
Lernnix