Project: Abakus VCL
Question

State: All

User infoUddoM
09.Oct.13 21:20
Subject:
Abakus Componenten mit der Mouse in Runtime bewegen

Description:
Ich möchte Abakom Componenten in Runtime mit der Mouse verschieben, was aber nicht gelingt. Alle Delphi Componenten lassen sich mit meinem Code einwandfrei bewegen. Nachstehend der Delphi Code (Delphi 7 Prof auf Windows 7 Prof).

Steps to reproduce:
unit Unit1;

interface

uses
Windows, WinProcs, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, _GClass, AbRMeter, registry;

type
TForm1 = class(TForm)
Ab270Meter1: TAb270Meter;
procedure FormCreate(Sender: TObject);

private
procedure AppMessage(var Msg: TMsg;
var Handled: Boolean);

public
{ Public-Deklarationen }
end;

const
SC_SIZE = $F012;

var
Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := AppMessage;
end;




procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
(* Only do anything if the left mouse button is pressed *)
if msg.message = wm_LBUTTONDOWN then
begin
(* Release the mouse capture *)
WinProcs.ReleaseCapture;
(* Send a message to the control under the mouse to go into move mode *)
postmessage ( msg.hwnd,WM_SysCommand, SC_SIZE, 0 );
(* Say we have handled this message *)
Handled:=true;
end;
end;



end.


User infoUddoM
10.Oct.13 2:24
Comment:
Drag&Drop funktioniert mit den Komponenten auch nicht.
Ich bitte um Hilfe.

User infoUlrich Maassen
14.Oct.13 13:39
Comment:
Abakus scheint tot zu sein oder es interessiert sich keiner der Verantwortlichen mehr für die eigenen Produkte, da hier niemand mehr von dem Unternehmen reagiert.

Wie auch immer, ich habe jetzt die Lösung gefunden.
Die Abukus Components basieren auf TGraphicControl und sind daher nicht so einfach der Mouse zugänglich. Ich habe dafür aber eine prima funktionierende Lösung.
Trotzden gibt es weiter Probeleme, da bei einigen Componenten das MouseMove Event vom Hersteller vergessen wurde. Aber das interessiert von denen ja keinem mehr. Und ich sehe auch nicht ein für irgend ein Update zu bezahlen. Ersten weil das Produkt gravierende Mängel aufweist und die hat der Hersteller gefälligst kostenlos zu beseitigen. Un Zweitens weil hier der Support anscheinend nicht mehr existent ist.
So verarscht man Kunden . . .

User infoadmin
15.Oct.13 9:47
Comment:
Wie sie sicher auch gemerkt haben, war die Website die letzten Tage zeitweise nicht erreichbar....
Der Server musste neu aufgespielt werden und hierdurch konnten wir uns nicht sofort um diese Anfrage kümmern...
Ja, der obige Code funktioniert nur mit Komponenten, die von TWinControl abgeleitet sind.

Sehr geehrter Hr. Maassen,
Kommentare, wie in Ihrer Form, helfen sicher nicht, das ein Produkt besser wird.
Anstelle dessen wäre es besser, auf die Fehler hinzuweisen.
Teilen Sie uns doch bitte die "gravierenden" Mängel mit.
MfG
Achim Bäcker

User infoUlrich Maassen
15.Oct.13 14:21
Comment:
Hallo Herr Bäcker,
ich hatte Ihre Webseite seit mehreren Tagen besucht, diesse war da immer problemlos erreichbar. Wie auch immer ist ja jetzt eine Reaktion ihrerseits da und dafür bedanke ich mich. Gerne können Sie meinen vorigen Post löschen, sorry für die bösen Worte.
Das Problem worum es geht:
Ich schreibe eine Software in der ihre Komponenten in Runtime auf dem Formular mit der Mouse verschiebbar sein müssen. Leider ist dies mit einigen Komponenten nicht möglich, da verschiedenen Move Events nicht implementiert sind. Im Einzelnen:

Component Fehlende Events
----------------------------------------------
AbClock OnMouseMove
AbOpHourCounter OnMouseMove
AbLabel OnMouseMove
AbBevel OnMouseMove
AbGradient OnMouseMove
AbSpinButton OnMouseMove,OnMouseUp,OnMouseDown
AbMiniTrend OnMouseMove

Ich benutze die Komponentenversion V3.90 Build 43 unter Delphi 7 Professional.

Sind diese Probleme in einer neueren Version des ComponentPackages behoben?
Und eigentlich sehe ich nicht so ganz ein, einen Updatepreis für von Ihnen vergessene Events zahlen zu müssen.

Mit freundlichen Grüssen
Ulrich Maassen

User infoadmin
18.Oct.13 18:16
Comment:
Mit V490 Build 1 sind diese Events Enthalten...


You are not logged-in
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot upload files in this forum