Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlphaBug,
3. Mär 2004
@barnti
Und wenn du anstelle von GetAsyncKeyState() GetKeyState() verwendest ?
procedure TForm1.DBGrid1ColEnter(Sender: TObject);
begin
if GetKeyState(VK_LBUTTON) <> 0 then
DBGrid1.BeginDrag(false);
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlphaBug,
3. Mär 2004
@barnti
Die Probleme tauchen bei mir nicht auf !?
Wenn ich das richtig verstehe,
versuchst du also eine Zelle des Grid per Drag&Drop zu verschieben ?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlphaBug,
3. Mär 2004
@barnti
Also bei mir startet er, aber die Zelle kann nirgendwo abgelegt werden.
procedure TForm1.DBGrid1ColEnter(Sender: TObject);
begin
if GetAsyncKeyState(VK_RBUTTON) <> 0 then
DBGrid1.BeginDrag(false);
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by AlphaBug,
3. Mär 2004
@barnti
Wie wär´s damit:
if GetAsyncKeyState(VK_RBUTTON) <> 0 then
// Key ist down