DGL • Thema anzeigen

FormMouseUp

Moderator: DGL-Team

Seite 1 von 1

[ 3 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

geo

Betreff des Beitrags: FormMouseUp

Verfasst: Mi Dez 22, 2004 20:26

DGL Member

Registriert: Di Dez 02, 2003 12:47
Beiträge: 300
Wohnort: Marburg

Hat jemand ne Idee, warum bei der Procedure

Code:

procedure TGLForm.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

Shift nur ein [] liefert, egal mit welcher Maustaste ich klicke???

Bei

Code:

procedure TGLForm.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

funktionierts und in einem älteren Programm von mir funktionierts auch wunderbar...

_________________
Nothing, oh sweet nothing,
today we are doing nothing at all...
http://www.geo-progs.de

Nach oben

sniper

Betreff des Beitrags:

Verfasst: Mi Dez 22, 2004 20:44

DGL Member

Registriert: Mi Dez 15, 2004 20:36
Beiträge: 454
Wohnort: Wien, Österreich

Code:

 
{  TShiftState = set of (ssShift, ssAlt, ssCtrl,
    ssLeft, ssRight, ssMiddle, ssDouble);
}
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
 var s:string;
begin
 if shift = [] then s := 'no';
 
 if ssShift in Shift then s := 'shift';
 if ssCtrl in Shift then s := s+' ctrl';
 if ssRight in Shift then s := s+' right';
 if ssMiddle in Shift then s := s+' midle';
 if ssalt in Shift then s := s+' alt';
 if ssLeft in Shift then s := s+' left';
 if ssdouble in Shift then s := s+' double';
 
Caption := s;
end;
 

Ich habe es so getestet und es func wunderbar. (D6, WinXP)

Nach oben

geo

Betreff des Beitrags:

Verfasst: Mi Dez 22, 2004 20:54

DGL Member

Registriert: Di Dez 02, 2003 12:47
Beiträge: 300
Wohnort: Marburg

Oh, habs Problem gefunden

Naja, ich teste [ssmiddle] [ssright] [ssright,ssleft] und [ssleft] ab.

funktioniert auch bei FormMouseMove wunderbar. Nur beim MouseUp sind die ja schon wieder hoch :-)

Habe mir mein altes Programm noch mal angesehen, da benutze ich natürlich if (Button = mbleft) then u.s.w

:idea:

@ sniper_w: sorry!!!

_________________
Nothing, oh sweet nothing,
today we are doing nothing at all...
http://www.geo-progs.de

Nach oben

Seite 1 von 1

[ 3 Beiträge ]

Foren-Übersicht » Programmierung » Allgemein

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 3 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.