Ich möchte gern per Drag&Drop in ein DBGrid von einer Listbox Daten einfügen. Mein Problem ist, das ich nicht weiß, wie ich den richtigen Datensatz wechseln kann, bevor der Rest des Codes ausgeführt wird.
Meine Idee war (nach etlichen anderen Fehlversuchen), das ich den sowieso schon vorhandenen event oncellclick ausnutze und dadurch in den richtigen Datensatz wechsle. Leider wird das ereignis wechsel in diesen fall erst ausgelößt, nachdem er den rest des codes ausgeführt hat. Wer kann helfen, wer hat ne
?
Delphi-Quellcode:
procedure THauptform.DBGrid2DragDrop(Sender, Source: TObject; X,
Y: Integer);
var Cell: TGridCoord;
a : integer;
hiddendata : THidden;
begin
try
mouse_event(MOUSEEVENTF_leftDOWN,x,y,0,0);
mouse_event(MOUSEEVENTF_leftUP,x,y,0,0);
finally
if (source = listbox1) then
begin
a:= (source as TListBox).itemindex;
hiddendata := ((Source as Tlistbox).Items.Objects[a] as THidden);
table2.Edit;
table2verteiler.value := hiddendata.id;
table2.Post;
Table2.refresh;
end;
end;
end;