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...
Zapomniałem jeszcze dodać, że w przedefiniowanej metodzie (override) jest: [syntax=delphi]Canvas.Brush.Color := clFuchsia; Picture.Bitmap.SetSize(_Widt... _Height + 1); Canvas.FillRect(Rect(0, 0, _Width, _Height + 1));[/syntax]Dla czyszczenia zawartości przed ponownym malowaniem. Wszystkie takie jednostkowe...
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...
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ś...
Napisalem pewien program. Składa sie on z około 40 formularzy. Pod XP wszystko działa super, natomiast pod 98 znikaja mi BitButtony. TZN POdczas exploracji programu obsługujący przechodzi z jednego formularza na drugi (forrm1.visible:=false; form2.visible:=true;) itp Program ma strukture drzewa...
Witam. Chcę w mojej aplikacji wykorzystać klawisze kursora do wywołania pewnych zdarzeń i z tym nie mam problemu. Problem pojawia się taki "estetyczny", że wciskając klawisze kursora przechodzi kolejno "zaznaczenie" Button'ów i co gorsze następuje przechodzenie pomiędzy różnymi zakładkami, przełączanie...
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,...
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",...
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...
probowałem drugiego rozszerzenia... niestety to pod Delphi 5.0 w domu mam tylko 7.0 ... wytyka mi, że to nie jest wersja 5.0 Próbowalem każdej procedury z osobna i przepisałem cały ten program... i nic nie widzi po prostu tych wytycznych. Powiem krótko w linku 3 jest wszystko jak na temat tylko...
Poniżej zamieszczam pierwszą, jeszcze bardzo nieudolna wersje programu. Nie myślałem że całość będzie aż tak skomplikowana, pomimo kilku godzin pracy zbyt wiele nie osiągnąłem. Na ta chwile podstawowe problemy to: - kłopot z orientacją na płaszczycie, ponieważ funkcja którą zastosowałem do odczytu...
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..
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...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, ComCtrls; type TForm1 = class(TForm) Image1: TImage; //Work area Image2: TImage; //Drag cursor eg 12x12 StatusBar1:...
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...
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...
Witam! Mam taki problem otóż mam programik klient-serwer gdzie wysuwanie stacji dysków i wsuwanie działa wyświetlanie błędu także działa ale mam prblem co do zakmnij system windows , wyłącz/włącz monitor, pokaż/ukryj ikony oraz kursor. Mam przypisany kodzik ale nie chcą mi działać te komendy mógłby...
Dzięki za odpowiedź nie wiedziałem nawet że w delphi są dynamiczne tablice, ale cóż cały czas się uczę ;) czy to wpłynie na szybkość działania programu :?: Chciałbym wiedzieć czy wystarczy mi lini w memo :?: Memo jest dla mnie wygodne bo ma LodFromFile I w ogóle czy ma sens wczytywanie takiej...
Poszukiwałem program, który wskazany folder z podfolderami i plikami - totalny chaos w nazwach - skopiuje we wskazane miejsce, ale zrobi to pytając za każdym razem o nową nazwę pliku dla każdego kopiowanego/przenoszonego pliku ze zbioru. Bawiąc się z PHP, znalazłem jedno ciekawe rozwiązanie wykorzystujące...
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 ...
A sprubój podstawić z "buffer" tablicę ( array [... ] of char, array [...] of byte lub cos w tym stylu), albo nawet sam "string". Podobne parametry mają funkcje piszące/czytające ze strumieni i w ich przypadku podstawia się znienne a nie wskaźniki do nich. z resztą "buffer" deklarowany jest przez...
po deklaracje odsyłam do api-guide :) 'przesuwa kursor w dowolne miejsce ekranu SetCursorPos(x, y) 'click mouse_event(MOUSEEVENTF_LE... 0, 0, 0, 0) Sleep(10) /*można pominąć*/ mouse_event(MOUSEEVENTF_L... 0, 0, 0, 0)
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...
Witam!! Dopiero zaczynam sie uczyc programowac w Delphi i potrzebuje aby tekst, ktory wstawiam za pomoca Richedit1.lines.add('wstawiany tekst'); zaczynal sie nie od poczatku danej lini, ale np: od srodka danej lini w Richedit. Potrzebuje cos takeigo jak justowanie w Wordzie. Pozdro/smalski
To nie rozwiazuje mojego problemu... Za kazdym razem bedzie wstawiana inna dlugosc slowa.( a tam trzeba za kazdym razem podawac dlugosc slowa) Nie mozna tego rozwiazac jakos tak?? ...wstawiam kursor po ostatnim wyrazie(czy jest taka funkcja nie wiem) zmieniam atrybuty i przez Richedit.SetText-wstawiam...
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...
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...
Może to i działa, ale nie w BCB 6 (to nie jest Delphi...). Komponent TEdit z VCL nie ma zmiennej Active, ani niczego podobnego. Przynajmniej nie rzuciło mi się w oczy. Jakby to było proste, to bym nie pytał. ;) Pozdrawiam.
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 Możesz troche jaśniej? Ten kod co podałeś wyżej przecież chyba to robi? Metoda onMouseMove zwraca X i Y.
Wysuwanie i wsuwanie tacki już działa. Dodano po 1 Mam jeszcze pytanie. Jak zrobić aby po wpisaniu w pole edycji jakiegoś znaku, celownik, czy kursor (niewiem jak to się nazywa ) przehodził do drugiego pola edycji i możliwe w tym drugim polu mógłbym wpisywać. Wymysliłem już że mógłbym użyć komponentu...
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...
Banalne (??) pytanie... jak ustawić żeby kursor nie migał podczas przęglądania bazy danych (nie ma możliwości edycji, wszystkie pola są tylko do odczytu). Miga zawsze na tym samym polu DBedit...
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).
dzięki chłopaki po raz kolejny :) jak Wam tak dobrze idzie to mam jeszcze jedno pytanko: czy można przesuwać obrazek w obrębie formy za pomocą myszy jakoś łatwiej... ja robiłem tak, że po kliknięciu myszą uruchamiałem timer w którym przesuwałem obrazek o przesunięcie kursora myszy a po puszczeniu klawisza...
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...
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...
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'
problem rozwiązany ale pojawił się następny - patrz kilka postów niżej :) ------------------------------------... Po przeinstalowaniu systemu i TurboDelphiExplorera kompilator wyrzuca mi błąd w linijce w której wsześniej błędu nie było... hmmm...
Witam. Jak w temacie... mam w aplikacji speedbuttony ze strzałkami, które po kliknięciu myszą sterują silnikami ale to nie istotne. Przechwyciłem klawiaturę aby też można było sterować klawiszami kursora i się da (najprościej wywołując procedurę onMouseDown / Up odpowiedniego buttona) ale chciałbym...
Witam Mam taki problem (TurboDelphiExplorer) - niekiedy przy naciśnięciu przycisku "Compile+Run" kompiluje się wszystko ładnie, pojawia się forma i wszystko "wisi" do momentu naciśnięcia alt+ctrl+del co od razu odblokowuje działanie programów . Podobna sytuacja lecz pojawiająca się za każdym razem...
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;...
to ustaw przed if'em pierwszym i pracą krokową obserwuj zachowanie i kursorem podglądaj wartości zmiennych i wyniki warunków
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...
Napisać "AnsiReplaceStr" w kodzie, nacisnąć Ctrl+F1 gdy kursor znajduje się na tekście, odczytać z pomocy, w jakim Unicie jest zdefiniowana ta funkcja.
Witam. w zdarzeniu onKeyDown formy wyświetlam nr wciskanego klawisza - wszystko działa dla wszsytkich klawiszy tylko wówczas gdy aktywnym obiektem jest TEdit, TMemo, lub forma główna natomiast jeśli aktywnym jest TButton nie zostaje uruchomiona procedura obsługi zdarzenia jeśli przyciskiem jest tab...
To najwyższy czas zacząć. Kliknięciem po lewej ustawiasz tzw. brakepoint, czyli linię, gdzie program wstrzyma swoje wykonywanie. Klawiszem F8 idziesz do następnej linii, a F7 wchodzisz wewnątrz funkcji. Po najechaniu kursorem na zmienną zobaczysz jej wartość. Dla obiektów warto kliknąć nazwę z przytrzymanym...
No fakt sorki, (a może taki myk jak zdarzenie OnScroll podpiąć do TRichEdita, o ile nie jest to zbyt skomplikowane,) chociaż ten sposób jest też doby tylko jeżeli by się udało przesuwać linie w gorę i w dół bez używania kursora a tylko jakąś funkcją do przesuwania wierszami ale to znajdę a jak nie...
Chodziło mi o policzenie ilości wystąpień znaku i ustawieniu kursora Po próbach okazało się ze da się tak samo wyszukać słowo tak samo jak pojedynczy znak i ustawić za nim kursor wystarczy dodać do pozycji ilość znaków danego słowa. Tak ze problem rozwiązałem :) Może trochę to dziwne pytanie...
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.
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...
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?
Jeszcze raz dziękuję za pomoc. Mam nadzieję, że moja bardzo nikła znajomość Delphi nie zniechęci Cię w przyszłości do udzielania mi kolejnych porad.
Ż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; T... xor 1;
Do scrolla możesz go dać na jakiś wyjątek: Przykładowo: W "Events" RichEdit na OnChange Wstawiasz focus na Edita i scroll na RichEdit. Wtedy będzi Ci scrolował i przenosił focus. Myślę, że po pewnym czasie będziesz w tym biegły i zastosujesz swoje lepsze rozwiązania. EDIT: Możesz spróbować...
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...
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...
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...
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; ...
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...
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.
sub HookProc(code:INT, wParam:INT, lParam:EVENTMSG) POINT pt ISTRING txt[64] if (lParam.message = WM_LBUTTONDOWN) GetWindowText&#... txt, 64) if (txt = "FolderView") GetCur... d1,...
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...
Właśnie mam ten sam dylemat - tyle że ja potrzebuje wysterować 1 osią Mój program robię w Delphi pod Win XP i na lpt + sterownik smc 1.Zastosowanie sleep odpada - za długa przerwa między impulsami. kombinowałem z pętlą opóźniającą jednocześnie ustawiając priorytet wątku na najwyższy. Efekt był taki,...
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.