also ich hab folgendes in meinem quelltext stehen!
Delphi-Quellcode:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (Button=mbright) then
hint:=IntToStr(X)+','+IntToStr(Y);
end;
im FormCreate hab ich Application.HintHidePause(1000) sowie Application.HintPause(0) meinem gebrauch entsprechend angepasst.
nun is aber folgendes zu beobachten:
- beim ersten drücken der rechten Maustaste passiert nix, erst wenn ich maus um 1 Pixel bewege
- auch wenn ich linke Maustaste drücke erscheint der Hint (mit den Werten, die durch letzten rechtsclick angenommen wurden)
alles verstanden?
kann mir einer sagen warum det so is?
ciao haegar