Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sirius,
18. Jun 2007
Du wolltest doch die 3 Mousebutton aus Tshiftstate raussplitten.
Du musst es ja nicht, di Info liegt wie gesagt auch in Shift ist da auch sehr gut aufgehoben. Du musst ja nach ControlMousemove keine TMousebutton überliefern, sondern einfach nur Tshiftstate und dann fragst du eben in ControlMouseMove shift statt Button ab. Es ist überhaupt nicht umständlich.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sirius,
18. Jun 2007
Wieso umständlich?
VB macht genau dasselbe nur eine Funktion weiter vorher. Die Message die von Windows kommt, ist ja bei beiden dasselbe und in der sind die Zustände der Maustasten und dieser "Funktions"-Tasten bitweise in einem integer enthalten.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sirius,
18. Jun 2007
Ja und? Willst du programmieren?
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var mb:tmousebutton;
begin
if ssleft in shift then mb:=mbleft;
if ssright in shift then mb:=mbright;
if ssmiddle in shift then mb:=mbmiddle;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by sirius,
18. Jun 2007
:evil: Du sollst es ja mal durchlesen! :warn:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ssleft in shift then showmessage('Linke Maustaste gedrückt!');
end;