Forum: Win32/Win64 API (native code)
Delphi
by Stony2k,
25. Jun 2005
Hi Toni,
deine Lösung sieht zwar gut aus, aber der Grafische Aufbau meines Programmes lässt es nicht zu Panels oder auch Labels anstatt von Messageboxen zu verwenden, da es auf gut deutsch "beschissen" aussehen würde. Aber du hast den Focusverlust mit dem aktiven Fenster angesprochen. Gibt es eine Möglichkeit diesen Focusverlust zu unterbinden?
@Khabarakh:
Deine Lösungs klingt, gut, da bin...
Forum: Win32/Win64 API (native code)
Delphi
by Stony2k,
23. Jun 2005
Haette ich zwar nicht erwartet, aber es lag an der Messagebox.
Habe diese mal auskommentiert und siehe da, es ging wieder.
Die messagebox scheint wohl irgentwie das wieder Hochgehen der Maustaste "abzufangen0", sodass es nicht mehr für die Mouse Up Event ausgelöst wird. Jedman eine Idee, wie ich dieses "Abfangen" verhindern kann?
Forum: Win32/Win64 API (native code)
Delphi
by Stony2k,
22. Jun 2005
Wenn man auf das Label drückt, wird die Mouse down Event ausgelöst, daran habe ich bereits gedacht.
Aber gut dass du es ansprichst.
Ich habe echt das wichtigste vergessen zu posten:
Die Mouse Down Event schaut so aus:
procedure Tfrm_main.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
Forum: Win32/Win64 API (native code)
Delphi
by Stony2k,
22. Jun 2005
Irgentwie scheintst du es echt nicht zu verstehen, gut hier nochmal die Code schnipsel:
procedure Tfrm_main.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
image1.Picture:=img_btn_gedrueckt.Picture;
Label1.Top:=Label1.Top+2;
Forum: Win32/Win64 API (native code)
Delphi
by Stony2k,
21. Jun 2005
Hatte garnicht drauf geachtet, den Post nochmal zu Editieren
Folgendes: Ich habe nun die Anfrage ob man die linke Maustaste drückt eingefügt.
Und zwar bei der Mouse up und bei der Mouse down Event.
Wenn ich die Rechte Maustaste drücke passiert nicht - so wie ich es wollte.
Das problem ist, dass aber nun die Mouse up Event auch nicht mehr ausgelöst wird, was zur folge hat, dass der...
Forum: Win32/Win64 API (native code)
Delphi
by Stony2k,
20. Jun 2005
*hochschieb*
Weiss keiner nen Rat? :)
Forum: Win32/Win64 API (native code)
Delphi
by Stony2k,
19. Jun 2005
jau danke nun funzt es wunderbar.
Hatte nämlich später das Problem, dass die Mouse UP Event nicht mehr ausgelöst wurde.
Aber so scheint es nun zu funzen, danke. Ansonsten melde ich mich.
Forum: Win32/Win64 API (native code)
Delphi
by Stony2k,
18. Jun 2005
Ok ihr wart alle schneller.
Habe es während ich gerade offline war mit Mühe in der Delphi Hilfe gefudnen (Stolz ist).
begin
if ssLeft in Shift then
begin
image1.Picture:=img_btn_gedrueckt.Picture;
Label1.Top:=Label1.Top+2;
Label1.Left:=Label1.Left-1;
sendText(befehle.befehl);
Forum: Win32/Win64 API (native code)
Delphi
by Stony2k,
18. Jun 2005
Ja ich arbeite ja mit Mouse Down und mit Mouser UP, nicht mit Click.
Aber die Frage ich wie ich das ganze mit dem Shift Integer abfrage :)
Forum: Win32/Win64 API (native code)
Delphi
by Stony2k,
18. Jun 2005
Moin,
es geht um folgendes. Ich benutze in meinem Programm selbst erstellte Buttons, sprich image Dateien, die bei der Mouse Down, bzw. der Mouse Up Event das Bild wechseln und einem label darüber, wo beim klick der Left und Top Wert verändert wird.
Funzt auch alle prima soweit. Nun mein Problem:
Man kann auch mit der rechten Maustaste auf den "Button" klicke, was ich aber für ziemlich...