Hi: alle miteinander,
und DANKE DANKE DANKE
sofort eingefügt und siehe da, als währe nie was gewesen es funct.
lag wahrscheinlich an:
datasource1.DataSet := table1;
das hatte ich nicht bei mir
-----------------------------------------------
Hallo Hansa
sorry : aber mit CASE kann ich nichts anfangen habe wahrscheinlich die eine Antwort falsch abgeschickt
-----------------------------------------------
wenns nicht Unferschämt is, würde ich vielleicht noch ne Frage stellen!?
BETRIFFT: DRAG AND DROP
möchte aus dem listenfeld den Dateinamen in das markierte Feld von MDBGRID ein fügen
probiere schon ne weile aber es will nicht
Delphi-Quellcode:
procedure TForm1.MDBGrid1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
accept :=source is tfilelistbox;
end;
procedure TForm1.MDBGrid1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if (sender is tmdbgrid) and (Source is tfilelistbox) then
begin
with sender as tmdbgrid do
begin
//mdbgrid1.Fields[mdbgrid1.SelectedIndex].Value:=((source as tfilelistbox).filename);
mdbgrid1.SelectedField.AsString:='neu';//((source as tfilelistbox).filename);
//table1Track Name:=tfilelistbox.filename;
end;
end;
end;
ich weis nicht wie ich die markierte zelle herrausfinde;
auch hier wieder ewige versuche.
Gruß Alf