Announcement

**G�nther Weber** · 13.10.2000, 19:20

Hallo Roman, unter OnMouseMove findest Du in der Hilfe:

void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{

char xPos[10];
char yPos[10];

itoa(X, xPos, 10);
itoa(Y, yPos, 10);

lbHorz->Caption = xPos;
lbVert->Caption = yPos;
}

Gru� - G�nthe

**Roman Morokutti** · 16.10.2000, 11:55

Danke G�nther

Das mit MouseMove ist eine tolle Geschichte. Stell dir aber mal vor, du willst einen Beep() ausgeben, jedesmal wenn die Mouse �ber ein bestimmtes Label gef�hrt wird. Wenn du jetzt OnMouseMove verwendest beepst es die ganze Zeit. Da habe ich mir gedacht, es mu� doch so etwas wie eine Windows Message geben, die registriert, da� die Mouse sich gerade �ber einem bestimmten Objekt befindet. Toll w�re es nat�rlich auch, wenn ich w��te wie ich das Objekt �bergeben k�nnte, �ber das die Mouse gerade f�hrt, um eine Funktion zu basteln anstatt f�r jedes Objekt ein Event zu erstellen.

Gru� Roma

**Philipp von der Born** · 16.10.2000, 15:42

Hi,

du k�nntest doch z.B. eine Variable des Typs bool nehmen und false setzen. Im OnMouseMove Ereignis �berpr�fst du dann die Variable. Ist sie false, setzt du sie true und l��t einen Beep ab. Wenn sie nun true ist, biept es auch nicht mehr, wenn du die Maus bewegst. Sofern die Maus wieder das Label verl��st setzt die die Variable wieder false. So wird es funktionieren.

Ciao Philip

16.10.2000, 16:43

Das mit MouseMove ist so eine Geschichte. Immer wenn die Mouse �ber das Objekt gef�hrt wird, wird dieses Ereignis ausgel�st. Wenn die Mouse das Objekt wieder verl��t, dann hat man keine M�glichkeit mehr, f�r das verlassende Objekt festzustellen, da� die Mouse nicht mehr �ber diesem Objekt ist. Die L�sung ist, f�r das Parentobjekt ebenfalls ein MouseMove Ereignis zu erstellen, das die Parameter wieder zur�ckstellt. Wenn man nun f�r jedes TLabel so ein Ereignis machen mu�, dann bl�ht sich der Code immens auf. Und alles nur, um ein wenig Schnick-Schnack in das Programm zu bringen.

Das gleiche jedenfalls ist z. B. wenn der Mouse-Zeiger ge�ndert wird, wenn die Mouse �ber einen Button f�hrt, oder wenn man �ber einen flachen TSpeedButton f�hrt, und sich dieser anschlie�end ein wenig erh�ht. Diese Geschichten sind ja ganz einfach �ber die Properties erreichbar, ohne eine Zeile Code zu schreiben. Darum hab ich gedacht, da� es auch einfacher geht

**G�nther Weber** · 16.10.2000, 19:25

<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1252">
<META NAME="Generator" CONTENT="Microsoft Word 97">
<TITLE>Hallo Roman, </TITLE>
<META NAME="Template" CONTENT="C:\Programme\Microsoft Office\Office\html.dot">
</HEAD>
<BODY LINK="#0000ff" VLINK="#800080">

Hallo Roman, 
ich hab meine Schulaufgaben gemacht - hier wäre eine Lösung:
<PRE>
// in der Headerdatei:
class TMainForm : public TForm
{
__published:

void __fastcall AppMessage(tagMSG &Msg, bool &Handled);

// in der CPP Datei:
void __fastcall TMainForm::FormCreate(TObject *Sender)
{
Application->OnMessage = AppMessage;
}

void __fastcall TMainForm::AppMessage(tagMSG &Msg, bool &Handled)
{
if (Msg.message == WM_MOUSEMOVE)
{
int x = LOWORD(Msg.lParam);
int y = HIWORD(Msg.lParam);
char Text[80];
sprintf(Text,"Mausposition innerhalb des Formulars: X=%d Y=%d",x,y);
StatusBar1->SimpleText=Text;
Handled = true;
}
if (Msg.message == WM_NCMOUSEMOVE)
{
int x = LOWORD(Msg.lParam);
int y = HIWORD(Msg.lParam);
char Text[80];
sprintf(Text,"Mausposition im Clientbereich: X=%d X=%d",x,y);
StatusBar1->SimpleText=Text;
Handled = true;
}
// für alle anderen Botschaften bleibt Handled auf False,
// so daß andere Botschaftsbehandlungen nicht reagieren können
}
</pre>

Wenn Du weitere Messages abfangen willst ( das kommt garantiert ;-) , dann solltest Du den Code in AppMessage natürlich in einen switch - Block setzen. Was den BEEP betrifft, kannst Du Dir ja die Mausposition merken, und erst dann wieder Töne machen wenn die Maus mehr als 27 Pixel bewegt wurde. Oder Du nimmst noch einen Timer dazu, dann kannst Du den Beep für 3 1/2 Sekunden sperren....

Gruß - Günther

</BODY>
</HTML&gt

**G�nther Weber** · 16.10.2000, 19:35

Die n�chste M�glichkeit w�re allen Objekten die gleiche Funktion f�r OnMouseMove zuzuweisen, und dann �ber "Sender" herauszubekommen um welches Objekt es sich als Aufrufer handelt.

void __fastcall TMainForm::MouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{

TPanel *T=dynamic_cast <TPanel *>(Sender);

switch(T->Tag)

Den Eigenschaften Tag kannst Du unterschiedliche Werte zuweisen, dann wei�t Du von welchem Panel die Meldung kommt. Aber ob das auch so funktioniert, wenn Du unterschiedliche Objekte hast, wei� ich nicht. Na ja, ein bi�chen mu�t Du schon selbst tun...

Viel Spa� dabei - G�nthe

**G�nther Weber** · 17.10.2000, 08:40

Um festzustellen, welches Steuerelement sich an einer bestimmten Stelle befindet, kann man die Methode ControlAtPos benutzen

24.10.2000, 14:00

Jetzt habe ich eine F�lle von Informationen von dir bekommen, und gar nicht darauf reagiert. War im Urlaub. Bl�d nur da� ich gerade eine neue Frage ins Forum gestellt habe, die aber durch deine Beitr�ge beantwortet ist. Wenn du willst, kannst du sie dir aber ebenfalls anschauen.

Gru� Roma

**G�nther Weber** · 24.10.2000, 14:52

Hallo Roman,

Hauptsache Du hattest einen sch�nen Urlaub. N�chstens schau erst nach was sich getan hat, und stell dann Deine neuen Fragen ;-)

Gru� - G�nthe

26.10.2000, 14:56

Hallo G�nther,

in deinem Beispiel von Nachricht 5 habe ich das Problem, da� die Botschaften WM_MOUSEMOVE und WM_NCMOUSEMOVE schon von der TForm abgefangen werden. Hast du vielleicht eine Idee, wie ich diese Nachrichten auf ein z. B. TLabel weiterleiten kann?

Gru� Roma

**G�nther Weber** · 26.10.2000, 17:34

Hallo Roman,

... steht doch drin ! Wenn Du Handled = false; schreibst, gilt die Nachricht als unerledigt und wird an die n�chste Komponente weitergegeben...

Gru� - G�nthe

Announcement

Mouse Koordinaten

Mouse Koordinaten

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment