Ĺadny brzuch
Czy może mi ktos powiedzieć jak zrobić "Timage" chodzący za kursorem (przapraszam jeżeli coś źle napisalem)
Użytkownik BadSowa edytował ten post 02 wrzesień 2006, 16:20
Nie wiem czy dobrze zrozumiałem ale tak można w onmousemove formy: Image1.Top = Y; Image1.Left = X;
Użytkownik Konrad_st edytował ten post 02 wrzesień 2006, 16:44
Ja zawsze robię tak:
- Zdarzenie dla formy "onmousemove":
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Image1.Left:=x; Image1.Top:=y; end;
I zdarzenie onmousemove dla TImage:
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Image1.Left:=Image1.Left+x; Image1.Top:=Image1.Top+y; end;
I najlpeiej włączyć jeszcze podwójne buforowanie by TImage nie mrugał przy przesuwaniu. Czyli w OnCreate dla formy:
Form1.DoubleBuffered:=True;
Dzięki :lol: Dzięki :lol: Dzięki :lol: ! O to mi chodziło.
A i mam jeszce jedno pytanie czy da się włączyć podwójne buforowanie dla Timage bo gdy przesówam po nim myszką z Timage to sie strasznie zacina
Użytkownik BadSowa edytował ten post 02 wrzesień 2006, 18:51
Nie wiem, czy o to chodzi, ale chyba Varcetti to opisał
I najlpeiej włączyć jeszcze podwójne buforowanie by TImage nie mrugał przy przesuwaniu. Czyli w OnCreate dla formy:
Form1.DoubleBuffered:=True;
To powinno rozwiazac sprawe, ale ja bym nie dawal glowy, bo jakby nie patrzec przesuwasz komponent po formie, czego w zasadzie sie nie powinno robic w tak krotkich odstepach czasu w jakich poruszasz mysza.
Sprawdzilem przed chwila u siebie - dziala, nie miga, ale jednak zamiast onmousemove i parametrow X i Y ja bym w tym zdarzneiu umiescil GetCursorPos i z tego korzystal. Plynniej to dziala niz tamten sposob.
Sorry mój błąd :oops: . Zamiast napisać, że obrazek "przyczepiony" do kursora nie wchodzi na Timage (wchodzi sam kursor) to napisalem że sie zacina(śpieszylem się :( )
Sorry mój błąd :oops: . Zamiast napisać, że obrazek "przyczepiony" do kursora nie wchodzi na Timage (wchodzi sam kursor) to napisalem że sie zacina(śpieszylem się :( )
Jezeli dobrze zrozumialem, to chyba potrzebujesz zrobic BringtoFront albo cos w ten desen...
Jezeli dobrze zrozumialem, to chyba potrzebujesz zrobic BringtoFront albo cos w ten desen...
A jak to zrobić??
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Użytkownik BadSowa edytował ten post 02 wrzesień 2006, 16:20
Nie wiem czy dobrze zrozumiałem ale tak można w onmousemove formy: Image1.Top = Y; Image1.Left = X;
Użytkownik Konrad_st edytował ten post 02 wrzesień 2006, 16:44
Ja zawsze robię tak:
- Zdarzenie dla formy "onmousemove":
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Image1.Left:=x; Image1.Top:=y; end;
I zdarzenie onmousemove dla TImage:
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Image1.Left:=Image1.Left+x; Image1.Top:=Image1.Top+y; end;
I najlpeiej włączyć jeszcze podwójne buforowanie by TImage nie mrugał przy przesuwaniu. Czyli w OnCreate dla formy:
Form1.DoubleBuffered:=True;
Dzięki :lol: Dzięki :lol: Dzięki :lol: ! O to mi chodziło.
A i mam jeszce jedno pytanie czy da się włączyć podwójne buforowanie dla Timage bo gdy przesówam po nim myszką z Timage to sie strasznie zacina
Użytkownik BadSowa edytował ten post 02 wrzesień 2006, 18:51
Nie wiem, czy o to chodzi, ale chyba Varcetti to opisał
I najlpeiej włączyć jeszcze podwójne buforowanie by TImage nie mrugał przy przesuwaniu. Czyli w OnCreate dla formy:
Form1.DoubleBuffered:=True;
To powinno rozwiazac sprawe, ale ja bym nie dawal glowy, bo jakby nie patrzec przesuwasz komponent po formie, czego w zasadzie sie nie powinno robic w tak krotkich odstepach czasu w jakich poruszasz mysza.
Sprawdzilem przed chwila u siebie - dziala, nie miga, ale jednak zamiast onmousemove i parametrow X i Y ja bym w tym zdarzneiu umiescil GetCursorPos i z tego korzystal. Plynniej to dziala niz tamten sposob.
Sorry mój błąd :oops: . Zamiast napisać, że obrazek "przyczepiony" do kursora nie wchodzi na Timage (wchodzi sam kursor) to napisalem że sie zacina(śpieszylem się :( )
Sorry mój błąd :oops: . Zamiast napisać, że obrazek "przyczepiony" do kursora nie wchodzi na Timage (wchodzi sam kursor) to napisalem że sie zacina(śpieszylem się :( )
Jezeli dobrze zrozumialem, to chyba potrzebujesz zrobic BringtoFront albo cos w ten desen...
Jezeli dobrze zrozumialem, to chyba potrzebujesz zrobic BringtoFront albo cos w ten desen...
A jak to zrobić??