Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by barnti,
3. Mär 2004
Hi,
habe ich mal so gemacht:
procedure TForm_Main.DBGrid_MasterEndDrag(Sender, Target: TObject; X,
Y: Integer);
begin
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by barnti,
3. Mär 2004
Hallo,
ich habe folgendes herausgefunden.
Ist einmal der linke Mousebutton betätigt worden, bleibt GetAsyncKeyState(VK_LBUTTON) immer auf true.
Erst nachdem ich nocheinmal mit links in das Grid klicke, liefert die funktion wieder den Wert false.
Wie kann ich erreichen, dass nach dem abgeschlossenen 'Drag-drop-Vorgang' der Button-State wieder zurüchgesetzt wird?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by barnti,
3. Mär 2004
Hi,
habe ich bereits probiert. Leider kein Erfolg...
Gruß,
Barnti
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by barnti,
3. Mär 2004
Hi,
das ist ja auch nicht das Problem. Siehe mein letztes Edit.
Ich möchte das der Drag-Vorgang NUR startet wenn beim OnColEnterEreignis die linke Mousetaste gedrückt wird sonst nicht. So wie es ist funktioniert es nicht, da die 'if-Bedingung' nach dem ersten Betätigen der linken mousetaste immer true liefert...
Weitere Ideen?
Gruß und Danke,
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by barnti,
3. Mär 2004
HI,
kannst Du mir dazu ein paar ausführlichere Zeilen schreiben. Ich habe das mal so übernommen. Leider passiert gar nichts mehr. Der Drag-Vorgang wird gar nicht mehr gestartet. Noch habe ich die Doku dazu nicht gelesen...
Jetzt aber!
Folgendes geändert:
procedure TForm_Main.DBGrid_MasterColEnter(Sender: TObject);
begin
if (GetAsyncKeyState(VK_LBUTTON )<> 0) then
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by barnti,
3. Mär 2004
Hi,
nein ich meinte schon im Programm. Dazu folgendes:
ich starte einen Drag-Vorgang folgendermaßen:
procedure TForm_Main.DBGridColEnter(Sender: TObject);
begin
// hier soll hin 'wenn rechte mousetaste gedrückt dann...'
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by barnti,
3. Mär 2004
Hi,
ich möchte unabhängig von den Mouseevents abfragen, ob ein Mousebutton zur Zeit gedrückt wird. Kann mir jemand verraten, ob und wie das zu bewerkstelligen ist?
Danke und Gruß,
Barnti