Drag and Drop einem StringGrid zur Laufzeit zuweisen

[Ykcim]

Hallo Zusammen,

ich habe mich gerade ganz vorsichtig auf das Gebiet der Erstellung von Komponenten zur Laufzeiten gewagt. Mit guter Hilfe hier aus dem Forum habe ich TabSheets und dann StringGrids auf diesen TabSheets erstellt.
Das klappt auch wunderbar.

Jetzt möchte ich gerne Drag and Drop in diesen StringGrids realisieren. Ich habe auch die benötigten Codes gefunden und erfolgreich auf einem StringGrid, welches NICHT zur Laufzeit erstellt wird angepasst.

ABer jetzt komme ich nicht weiter, bei dem Versuch, Drag & Drop auf die zur Laufzeit erstellten StringGrids anzuwenden.

So habe ich es erfolglos versucht:

Delphi-Quellcode:

for I := 0 to Length(Rows1[0]) - 1 do
    begin
      tabsheet:= TTabSheet.Create(PlanungMB1);
      tabsheet.PageControl:=Main.PlanungMB1.Maschinen;
      TabSheet.Name:=Rows1[0,I];
      TabSheet.TabVisible:=false;
      Main.PlanungMB1.Maschinen.ActivePageIndex:=I;
      DatenGrid:=TStringGrid.Create(Main.PlanungMB1.Maschinen.ActivePage);
      DatenGrid.Parent:=Main.PlanungMB1.Maschinen.ActivePage;
      DatenGrid.Name:='Daten'+Rows1[0,I];
      DatenGrid.Align:=ALClient;
      DatenGrid.Visible:=true;
      DatenGrid.ColCount:=5;
      DatenGrid.RowCount:=5;
      DatenGrid.FixedCols:=0;
      DatenGrid.Options:=[goRowSelect, goVertLine, goHorzLine, goFixedVertLine, goFixedHorzLine];
      //DatenGrid.Cells[0,2]:=TabSheet.Name;
      DatenGrid.OnClick:=FAauswaehlen;
      DatenGrid.OnDblClick:=FADoppelCl;
      DatenGrid.PopupMenu:=Main.PlanungMB1.PlanungMenue;
      DatenGrid.DragDrop:=DragDropPLMB;    // Hier gibt er mir beim Compilieren den Fehler, dass er nicht genügend Parameter hat
      DatenGrid.DragOver:=DragOverPLMB;    // Hier gibt er mir beim Compilieren den Fehler, dass er nicht genügend Parameter hat
      DatenGrid.MouseDown:=MouseDownPLMB;   // Hier gibt er mir beim Compilieren den Fehler, dass er nicht genügend Parameter hat
    end;
end;

procedure TMain.DragDropPLMB(Sender, Source: TObject; X, Y: Integer);
var
   DestCol, DestRow: Integer;
begin
   // Ziel Zeile ermitteln
   (Sender as TStringGrid).MouseToCell(X, Y, DestCol, DestRow);
   if (FSourceRow <> DestRow) then
   begin
      // Zeile FSourceRow nach DestRow verschieben
      TStringGridHack(Source as TStringgrid).MoveRow(FSourceRow, DestRow);
   end;
end;


procedure TMain.DragOverPLMB(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
var
   Col, Row: Integer;
begin
   (Source as TStringgrid).MouseToCell(X, Y, Col, Row);
   Accept := (Sender = Source) and (Row > 0);
end;


procedure TMain.MouseDownPLMB(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
   SourceCol : Integer;
begin
   // Zeile ermitteln
   (Sender as TStringgrid).MouseToCell(X, Y, SourceCol, FSourceRow);
   if (FSourceRow > 0) then
     (Sender as TStringgrid).BeginDrag(False, 4); // Drag starten
end;

Kann mir jemand helfen, wie ich das realisiere?

Vielen Dank

Ykcim

[Bummi]

nicht .DragDrop sondern .OnDragDrop etc ....

On fehlt ...

[Ykcim]

DANKE!!!!

Das war es. Jetzt funktioniert es! :lol::lol::lol::lol::lol::lol::lol::lol:

Vielen Dank!

Ykcim