Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by mischerr,
19. Jun 2018
Im Moment hab ich da auch keine einfache Idee.
In dem von mir verwendeten TSMDBGrid ist das MouseDown Event überschrieben.
Frag mal Google danach - die Sourcen sind ja verfügbar.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by mischerr,
19. Jun 2018
Nein, im Code fehlt das "DBGrid." vor dem "BeginDrag()"
Alternativ über das MouseMove-Event versuchen:
procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if (GetAsyncKeyState(VK_LBUTTON) and $8000)<>0 then
if not Mouse.IsDragging then
DBGrid1.BeginDrag(false, 0);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by mischerr,
19. Jun 2018
Hallo,
also ich mach das hier in einem Projekt genauso.
Aber Du musst das "BeginDrag" des Grids nicht des Forms verwenden!
Also hier: dbgrdXXX.BeginDrag(false, 0);
Zumindest hier (TSMDBGrid) geht das problemlos!