Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by roga,
6. Nov 2008
procedure TForm1.grd_aMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
aCol, aRow : integer;
begin
if Button = mbLeft then
grd_a.MouseToCell(X,Y,ACol,arow);
{-------------------------------------
->> BeginDrag einfach mal weglassen
bei DragMode := dmAutomatic <<-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by roga,
6. Nov 2008
Hallo,
hatte vor einiger ein ähnliches Problem und soweit ich mich erinnere, hat die Einstellung "DragMode := dmAutomatic" Abhilfe geschafft.
Gruß RoGa