Żadnych sleepów! Timer ma swój interwał i on powinien tylko na przemian zapalać i gasić kursor. Możesz spokojnie zrobić (w kontekście Timera): if Tag=0 then Canvas.Pixels[]:=clBlack else Canvas.Pixels[]:=clWhite; Tag:=Tag xor 1;
W zdarzeniu OnChange Edit1 wpisz np.: If Edit1.lenght > 5 then //Po wpisaniu 5 znaków... Edit2.SetFocus; //W polu edit2 ustawiany jest kursor tekstowy.
po deklaracje odsyłam do api-guide :) 'przesuwa kursor w dowolne miejsce ekranu SetCursorPos(x, y) 'click mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) Sleep(10) /*można pominąć*/ mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
hThread sobie wrzuc do zmiennych globalnych jesli jest tworzony tylko jeden watek w danym momencie.. i wtedy w dowolnym miejsci bedziesz mogl zrobic np. TerminateThread(hThread, 0); Aby w jakims miejscu poczekac na zamkniecie watku jest api WaitForSingleObject wiecej poczytaj na MSDN'ie. Ale widze ze piszesz to w Delphi a tam sa gotowe klasy dla Watkow...
A czy można w jakiś prosty sposób ustawić kursor w pozycji x,y na memo, po to żeby pózniej w to miejsce wstawić zawartosc stringa? coś na wzór memo1.pozycja x y , . ? Po prostu chciałbym żeby do czystego memo powstawiać w rózne miejsca kilka stringów tzn w rożne wiersze od rożnych kolumn . Dlaczego tak: [syntax=delphi] a:=inttostr(memo1.CaretPos.x);...
to znajdź w helpie coś o timerze, SetTimer, StartTimer i w jego procedurze czytaj i wyświetlaj wsp. kursora Pewnie teraz masz to w zdarzeniu mousemove - to działa tylko jak kursor porusza się nad oknem, albo jak masz capture [SetCapture(hwnd)] "włączone" to działa dopóki nie wyłączysz capture albo nie klikniesz gdzieś
Coś nie tak. Zrobiłem sobie nowy projekt (przesyłam w załączeniu) dla próby i po uruchomieniou w komórce[1,1] wpisuję kolejno znaki : 12345678901234567... i program nie reaguje mi po wpisaniu 15 znaku tylko umożliwia dalsze wpisywanie i nie przechodzi do komórki [2,1]. Podobnie program nie reaguje na klawisz <E> jeśli mam Options-goAlwaysShow...
Witam, moje uwagi takie: - Ten niebieski pasek na środku wygląda nieestetycznie, w dodatku kursor zmienia się nad nim, sugerując funkcję której nie ma. W delphi jest coś takiego jak "Group", możesz zastąpić grupami ten pasek. - Informacje o państwach to tylko obrazki. Tekst na JPEG nie wygląda zbyt dobrze, lepiej żeby na obrazku było tylko godło. -...
Witam. mam dwa pytania: 1. Jak zmienić programowo kursor myszy w całej aplikacji (jedna forma Form1) razem z kursorem obrazków, paneli itp.... ? 2. Dlaczego jak zmieniam kursor obrazka w jego zdarzeniu onDown to zmienia się kursor dopiero po puszczeniu klawisza myszy ? Application.ProcessMessage nie przynosi skutku ...
Robię gierkę w delphi i używam komonentu Omega (do directx). Mam problem, bo w grze mam przesuwającą sięplanszę i kiedy przesunę ją np. o 800px w lewo to kursora już nie widać bo w grze jest rozdzielczość 800x600. Co zrobić żeby kursor poruszał się po większej powierzchni?
Witam. Znalazłem taki kod, który jednak trochę szwankuje i nie bardzo wiem co można w nim poprawić ale do rzeczy: przy obracaniu kamerą, zmienia się kąt patrzenia na płaszczyznę Z=0 na której jest kwadrat. Na nim ma być wyświetlony "kursor" mniejszy kwadracik w pozycji MyszGL, gdzie MyszGL.z:= MyszGL.z -0.01 żeby go było widać. Wszystko gra jeśli kamera...
Zapomniałem jeszcze dodać, że w przedefiniowanej metodzie (override) jest: [syntax=delphi]Canvas.Brush.Color := clFuchsia; Picture.Bitmap.SetSize(_Width, _Height + 1); Canvas.FillRect(Rect(0, 0, _Width, _Height + 1));[/syntax]Dla czyszczenia zawartości przed ponownym malowaniem. Wszystkie takie jednostkowe obliczenia oczywiście wyrzuciłem przed pętle,...
Przede wszystkim ustaw kursor na lini od której chcesz zacząć debuggowanie i wciśnij F4. Program będzie wykonywał się "normalnie", aż do wywołania linijki z kursorem (ominiesz w ten sposób wszelkiego typu "OnCreate"). Od tego momentu możliwa będzie praca krokowa. Gdy nie chcesz sprawdzać kodu jakiejś funkcji czy procedury, zamiast F7 wciskaj F8. Delphi...
Hook:=SetWindowsHookEx(wh_journalrecord,... zatrzmuje się kursor podczas kompilacji}HInstance,0); generuje mi błąd: [Pascal Error] Unit1.pas(606): E2009 Incompatible types: 'regular procedure and method pointer'
Napisałem sobie w Delphi prosty programik, który pobiera Tekst z kontrolki, nad którą znajduje się kursor myszy. Tekst pobierany jest za pomocą kodu: GetCursorPos(pos); uchwyt:=windowfrompoint(pos)... GetWindowText(uchwyt, bufor, 255); Form1.Caption:=bufor; Jeżeli mam Edita w oknie mojego programiku to działa świetnie,...
f7 praca krokowa lub ustawiasz kursor w lini gdzie przypuszczasz ze wystapi blad i f4 (program wykona sie do tej lini) nastepnie f7. jak zlokalizujesz gdzie wywala blad wklejasz ten kawalek kodu na forum i zobaczymy co jest nie tak...
Dzięki że tak szybko odpowiedziałeś. 1. Jeszcze nie sprawdzilem tych komponentów. 2. Mnie chodzi żeby na nie wypełnionym komponencie jak klikne w dowolne miejsce to tam ma się ustawić kursor (coś takiego jakby wypełnić cały komponent spacjami) 3. Funkcja działa pięknie ale jest taki problem że program nie chce tam zapisywać plików. Dodano po 13 Mam...
Witam, mam taki problem: dodaję do RichEdit nowe linie, po czym scrolluje całość by po dodaniu nowej linii była ona widoczna. Problem polega na tym, że gdy dodaje te linie co jedną sekundę to wtedy nie mogę nic wpisać np. do Edita na tej samej formie ponieważ kursor sam (wraz z dodaniem nowej linii w RichEdit) przeskakuje z Edit do Richedit. Jak można...
Dzięki pomogło :) Jeszcze jedno mianowicie mam Timer i ustawilem zeby ta procedura wywoływała sie co 2 sekundy. I tak jest ale gdy procedura wylosuje pole które już wcześniej zostało wyloswane i w polu jest już tekst to wtedy dopiero za 4 sekundy procedura sie powtarza a nie za 2. Chodzi mi dokładnie oto że mam kilka pól i chce żeby komputer losowo...
Jeżeli ten napis nie ma zajmować wiele miejsca to można zrobić tak jak to gdzieś widziałem... kiedy tylko najedziesz w pobliże napisu to ukrywa się, a kiedy kursor stamtąd zabierasz to znowu się pojawia. Możesz ewentualnie też umieścić napis np. w innym rogu ekranu. Poza tym to raczej denerwujące rozwiązanie zakładające, że użytkownik jest idiotą i...
jak zrobisz deklaracje funkcji to stawiasz kursor na niej i klikasz ctrl+shift+c i powinien się wygenerować szablon nowej funkcji i powinno teraz działać, ewentualnie upewnij się czy deklaracja funkcji ma postać np. Form1.funkcja a nie poprostu funkcja no i jeżeli ta funkcja jest w innym pliku to nie zapomnij dodac tego pliku w sekcji uses sorki w poprzednim...
Jesli naprawa myszki nie pomoze to napewno jest to jakis syf. Jest na to sposob. Tego typu programy byly zrobione w delphi albo w c++ itp.. wiec nie wykryje go antywirus bo to jest zwykly program (kiedys sie bawilem w pisanie takiego czegos-oczywiscie testowalem je tylko u siebie :)) Usunac to mozna w latwy sposub. Uruchom edytor rejestru przez menu...
Wiec tak, w specyfikacji sterownika jest np. zeby kursor postawic na poczatku i zeby mrugal oraz zeby wlaczyc wyswietlacz nalezy wyslac na LPT bity 11110000 (w postaci dziesietnej 15) wysylam wiec na LPT liczbe 15 i nic sie nie dzieje Wedlug Ciebie powienienem wyslac ja krokowo czyli najpierw 10000000 11000000 11100000 11110000 czy moze w inny sposob,...
Mam kilka pytań, a nie chcę zakładać mnóstwa nowych tematów: 1. Jak zrobić, aby po wpisaniu np. 4 znaków do pola edit1, kursor klawiatury znalazł się w edit2, bez naciskania TAB? W akcji onchange edit1 wpiszę: If edit1.GetTextLen >= 4 then... i co dalej? 2. Jak wejść w tryb poleceń podczas uruchamiania systemu WinXP? W 98 bez problemu: tylko wiersz...
Rysując po Canvasie możesz zrobić każdą tabelę. Wygląda to mniej więcej tak for i:=0 to StringGrid1.RowCount-1 do begin Printer.Canvas.TextOut(260,2900+i*120,St... Dodano po 3 To i*120 w kodzie to wysokość jednej linijki, tzn po wydrukowaniu jednej linijki tekstu, przesuwam kursor o 120 punktów w dół. Nie mogłem edytować tego postu, proszę...
Mnie tam sysutils.time() bardziej przypomina Delphi niż TP, ale nie chcę się kłócić :P Wiele lat temu, w TP7.0 robiło się takie rzeczy w taki sposób :[syntax=pascal]program minutnik; uses WinDos,CRT; var czas,zostalo, alarm : TDateTime; zakoncz : boolean; czas_i,alarm_i,zostalo_i : longint; zmm_word : word; procedure HideCursor; assembler; //kosmetyka...
Mam teraz 2 problemy wykonałem konsolę SQL i działa procedure TForm4.Button1Click(Sender: TObject); begin if Form1.SQLDataSet1.Active then Form1.SQLDataSet1.close; // jesli SQLDataSet1 wlaczony to wylacz // uaktualnianie DBGrida if Form1.ClientDataSet1.Active then Form1.ClientDataSet1.Close; // jesli ClientDataSet1 wlaczony to wylacz Form1.SQLConnection1.DriverName...
Taki program pisze się 15 minut, jak powiesz czego dokładnie oczekujesz - zrobię. EDIT: Załączam program, może komuś się przyda (ma podstawowe opcje konfiguracji). Jeśli potrzeba czegoś więcej - można się ze mną skontaktować, albo samemu zmodyfikować (źródło w Delphi 7).
Napisać "AnsiReplaceStr" w kodzie, nacisnąć Ctrl+F1 gdy kursor znajduje się na tekście, odczytać z pomocy, w jakim Unicie jest zdefiniowana ta funkcja.
W Delphi można zrobić tak: procedure TForm1.Edit1Click(Sender: TObject); begin with Edit1 do begin SetFocus; SelectAll; end; end; Myślę, że nie będzie problemu z przeniesieniem tego na BCB.
DBEdit.Enabled = False; "Wyłącza" element, nie można w nim nic wpisać ręcznie, nie miga też kursor. Jeśli chcemy z powrotem uaktywnić daną kontrolkę ustawiamy Enabled na True;
Memo1.SelText := 'string';
Arnoldziq, nie zgodzę się. Podany przez Ciebie kod będzie tworzył nowe linie. Piotrek_I - ten kod stanie się z czasem dość powolny. Ponadto za każdym razem będziesz przeładowywał całą zawartość. Częściowo pomoże wcześniej zablokowanie odświeżania ( Lines.BeginUpdate ) na czas dodania. Ale sąd bierze się resetowanie pozycji kursora i skok na górę. Trzeba...
A ten kod co napisałeś wyżej to nie działa? chodzi o to by kursorem myszki odczytac piksel lezacy pod nim mam problemy z wiliczeniem wspolrzednych piksla od kursorem
Hm.. a w jakim języku ma być kod? najprostrza metoda do takiego rysowania to Canvas. zamalozać jednym kolorem (tło).. namalować przedziałki czas/napięcie. potem przestawić kursor malowania na pozycje (0,data niedołączam pliku exe .. same source..
zakrecone troche :( na prawde nie ma innego sposobu? :|
1. To ustaw kursor na ostatniej lini w RichEdit jakaś procedura i powinno się samo przewinąć dokładnie nie wiem o co chodzi koledze 2, Co do zawijania textu to podobnie jak np w Memo w inspektorze obiektów WordWrap na True A propo zawijania wierszy to zawijanie polega na przeniesieniu następnych znaków do następnej linii bez dodawania znacznika nowej...
Ja bym to zrobił zupełnie inaczej. Po pierwsze nie widzę sensu aby ilość "RadioButtonów" była uzależniona od liczby pytań... Chcąc dodać/Zmienić pytanie musisz Dodawać/edytować Kolejne RadioButtony... A gdyby tak było ich tylko 4 i Jeden Label? Powiedzmy, że po uruchomieniu aplikacja wczytywałaby z pliku textowego pierwsze pytanie i 4 odpowiedzi. Odpowiadasz...
Możesz do tego celu urzyć delphi'e i zrobić tam jakiś programik przysuwający kursor myszki i ustawić go tak aby kliknoł tam gdzie trzeba.
to ustaw przed if'em pierwszym i pracą krokową obserwuj zachowanie i kursorem podglądaj wartości zmiennych i wyniki warunków
Image Edit Borlanda będzie pasował. W builderze C++ i w delphi znajdziesz w katalogu BIN. Generalnie program do ikonek ale obsługuje kursory, bitmapy, i pliki resource. Ale i tak paint najlepszy.
ale char to przeciez pojedynczy znak wiec program odczytajeden znak z calego tekstu... Moznaby zmienic by zmienial za kazdym razem pozycje kursora ale ro ma dzialac w delphi a tam jak sie orientuje to sa jakies klocki ze zmiana pozycji kursora... Poza tym lepiej znam operacje na stringach niz na char'ach... Czy nie dalo by sie jakas usprawnic tego mojego...
Działa, dziękuję :) Przy okazji to kształt kursora tą metodą też da radę odczytać? Bo tak spoglądam na przykłady w necie i wszystko jest praktycznie o klawiszach.
Uzyj zmiennych SelTextBegining i SelTextEnding, czy tez SelTextCostam :D Jakos tak, jesli obie beda takie same, to wlasnie tam sie ustawi kursor. I w tej chwili mozesz podac: seltext := 'Twoj tekst'; U mnie to dzialalo, Caladan
O ile dobrze pamiętam, to komunikat WM_MOUSEMOVE jest wysyłany przy otrzymaniu komunikatu od myszy, a nie przy zmianie położenia kursora. Proste sprawdzenie - ustaw minimalną czułość kursora myszy. Jeśli otrzymujesz komunikaty mimo nieruszania myszy, to prawdopodobnie jej oprogramowanie wysyła "drgania", czyli skanowany obraz nie znajduje się w stanie...
Tu wystarczy naprawdę 3. punkt i 2 linijki kodu... Pozostałe podałem tylko jako możliwości kolejnych optymalizacji wychodząc od tego, co stworzyłeś. Jeśli podzielisz współrzędne przez wielkość sektora, otrzymasz jego współrzędną (czyli de facto zastosujesz skalowanie, proporcję wielkości, równomierne podzielenie obszaru na określoną ilość sektorów)....
Witam, mam podobny problem, jednak po części poradziłem sobie dzięki zamieszonym tutaj kodom. Muszę przesłać 15 liczb o zmiennej długości jedna mieści się w byte, reszta w integerach. Nie wiedziałem jak to zbytnio ugryźć, więc wysyłam całą ramkę jako sklejone liczby w zapisie dwójkowym, taka ramka waży 184bity. I później wycinam sobie 8 lub 16 bitów...
Spróbuj zrobi cos takiego : 1. Wywal wszystkie odwołania do ZEOSa. 2. Jako źródło do DBGrid-a ustaw jakiś plik lokalny ( DBF, albo coś takiego) sprawdź czy problem występuje przy takich ustawieniach. Zrobiłem w/w zmiany w twoim kodzie, i wszystko działa idealnie: zarówno naciśnięcie Button1 czy TollButton :) wprowadza kursor do aktywnego DBGrida. Niestety...
Witam Zapoznałem się z metodami "obróbki" stringów czy istnieją sposoby na wyszukiwanie wyrazów w stringu lub jeśli mam dwa wyrazy w stringu jakoś pokazać że chodzi mi o drugie wystąpienie tego wyrazu dążę do ustawienia kursora w odpowiednim miejscu. Bo jeśli chodzi o pojedynczy nie powtarzający się znak to jest to stosunkowo proste.
problem rozwiązany ale pojawił się następny - patrz kilka postów niżej :) ----------------------------------------... Witam. Po przeinstalowaniu systemu i TurboDelphiExplorera kompilator wyrzuca mi błąd w linijce w której wsześniej błędu nie było... hmmm dziwne: kod: MainHook := SetWindowsHookEx(wh_JournalRecord,...
kursor tablet przeskakujący kursor współrzędna kursor
nokia blokada klawiszy pęknięta chłodnica canon wymiana rolek papier
esp8266 18650 automatyczne dzienne
Luz zaworowy w skuterze Peugeot Satelis 125 Czy gramofony Lenco są dobre? Opinie i recenzje
