Hallo zusammen,
ich weiss das dies nicht nur eine Anfängerfrage ist, sondern auch hier schon des öfteren gestellt wurde. Nur scheinbar bin ich zu dumm, um die Antworten richtig umzusetzen.
Mein Ziel ist es an einer bestimmten stelle des Mauscursors eine art InfoBox anzuzeigen (aktuelle Position des Cursors).
Hab es schon mit <pre>DoubleBuffered = true;</pre> versucht. Hat aber leider auch nicht geholfen.
Dazu ein kleines Code Beispiel:
<pre>
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
Form1->ControlStyle<<csOpaque;
Form1->DoubleBuffered = true;
}
</pre>
//---------------------------------------------------------------------------
<pre>
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{
Form1->Refresh();
Form1->Canvas->Brush->Color = clGreen;
Form1->Canvas->TextOutA(X+15,Y+20,"Info");
}
</pre>
Ich bin euch für jeden Tip dankbar.
Gruß Walter
ich weiss das dies nicht nur eine Anfängerfrage ist, sondern auch hier schon des öfteren gestellt wurde. Nur scheinbar bin ich zu dumm, um die Antworten richtig umzusetzen.
Mein Ziel ist es an einer bestimmten stelle des Mauscursors eine art InfoBox anzuzeigen (aktuelle Position des Cursors).
Hab es schon mit <pre>DoubleBuffered = true;</pre> versucht. Hat aber leider auch nicht geholfen.
Dazu ein kleines Code Beispiel:
<pre>
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
Form1->ControlStyle<<csOpaque;
Form1->DoubleBuffered = true;
}
</pre>
//---------------------------------------------------------------------------
<pre>
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{
Form1->Refresh();
Form1->Canvas->Brush->Color = clGreen;
Form1->Canvas->TextOutA(X+15,Y+20,"Info");
}
</pre>
Ich bin euch für jeden Tip dankbar.
Gruß Walter
Comment