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.
Indeksy wpisujesz podczas tworzenia w polu Tag każdego przycisku. Do użycia w OnClick. unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure Fun(Sender: TObject); //Funkcja przycisku private...
no dzieki, probuje wpisac cos takiego, ale wyskakuje mi blad: " declaration expected but WITH found", nie podoba mu sie takze " edit" i " first", domyslam sie ze trzeba cos pisac przed with, ale nie wiem co...wiec prosze o pomoc, bylbym wdzieczny
Witam, Zaczynam programować w delphi i mam pytanie jak sprawdzić czy tekst wpisany w edit1 znajduje się w zmiennej znaki zdeklarowanej jako string?
Wystarcz użyć opcji SZUKAJ. Są tysiące wątków na ten temat. Np. tutaj : [url=http://www.elektroda.pl/rtvforum/to... z delphi - kalkulator
Hmm, nie mam teraz na kompie ani Delphi ani Buildera, ale chyba jest Edit1.OnChange. A oprogramowanie tego powinno byc juz proste.
P.S Co kolega ma na myśli mówiąc o porządnym nazywaniu kontrolek, może jakiś przykład :?: Jak otworzysz to źródło za miesiąc, to zrozumiesz :P np.: TForm frmMain; TForm frmLogowanie; TButton btnOk; TButton btnOblicz TEdit edNazwisko;
Program wysyła string pobrany z TEdit i jak zaznaczysz "new line" dodaje znaki #13 i #10.
W Delphi w oknie Project -> Options w zakładce Version Info jest coś co pewnie pozwala na automatyczną inkrementację wersji programu. Jak to uruchomić ( u mnie cały czas się nie zmienia - chyba że sam nie zmnienię ) i jak w programie w jakimś polu typu TLabel czy TEdit wyświetlić taką informację. Pozdrawiam Zamykam. - arnoldziq
Dziala , tylko bardziej chodzilo mi o cos takiego zeby wyswietlalo liste pasujacych wynikow Ale najpierw musisz tę listę jakoś utworzyć, lub skądś pobrać, prawda ? Możesz to zrobić, bardzo prosto nawet przy pomocy jednego TEdit-a i np. Jednego TMemo. Umieść na formie jeden TEdit i jedno TMemo. Do zdarzenia OnChange dla TEdit-a napisz taką procedurę...
Drodzy koledzy. Wszystko ładnie, ale albo ja mam "specjalną" wersję Delphi 5, albo ta dyskusja jest bezcelowa. Przy każdym dodaniu linii TMemo, karetka jest przenoszona automatycznie do następnej linii, właśnie sugerowaną metodą : SendMessage(Memo1.Handle, EM_SCROLLCARET, 0, 0); Taki kod : unit Unit1; interface uses Windows, Messages, SysUtils,...
Ok, poprawiłem zgodnie z Twoją radą i pomysłem: [syntax=delphi]procedure OdczytajKonfiguracje(gdzie_zapisac: String); var INI : TINIFile; licznik: Integer; begin if OpcjeForm.ZapisOdczytCheck.Checked then else gdzie_zapisac := ExtractFilePath(Application.Exename) + gdzie_zapisac; INI := TINIFile.Create(gdzie_zapisac); Lista := TStringList.Create; try...
.ręce mi już opadają . Witam . Kolejne pytanie . Robię wszystko jak podpowiedziałeś , żadnego dodatkowego kopania w ustawieniach i jest efekt taki . Zrobiłem kawałek aplikacji z kilkoma tedit , radiogroup , i button . Gdy go uruchamiam w win32 tak jak podpowiedziałeś , wszystko chodzi jak zaplanowałem , ale kiedy zmienię z win32 na android i kliknę...
Witam, Mam taki problem: jak z poziomu Delphi lub C++ uruchomić program "cmd.exe" (win-konsola) i następnie przejąć kontrolę nad jego wejściem i wyjściem? Np. w polu typu TEdit wpisuję "dir", klikam na przycisk, i wynik działania tego polecenia otrzymuję np. w kontrolce TMemo. WAŻNE jest, żeby program "cmd.exe" nie był każdorazowo uruchamiany i zamykany...
:: Jak jednak zrobić, by informacje aktualizowały się np. co 10 sekund? Dajesz na formę komponent TTimer i wrzucasz do niego tom procedurkę która jest odpowiedzialna za aktualizowanie. Komponent ten ma taką właściwość jak Interval, podaje się tam częstotliwość odświerzanie w milisekundach. Więc jeśli chcesz odświerzać np. co 10 sekund to trzeba tam...
To do proste: [syntax=delphi]procedure TForm1.Button1Click(Sender: TObject); var I : integer; s : string; begin for i:=0 to self.ComponentCount-1 do if (self.Components[i] is TEdit) then begin s:=TEdit(self.Components[i]).name+'='+TE... //store s bla, bla bla end; end;[/syntax] Oczywiście zamiast 'self' można wstawić np. nazwę...
Proponuje zapoznac sie z FindComponent()
Skoro odwołujesz się do poszczególnych form po nazwie, to równie dobrze możesz odczytać po nazwie wartości poszczególnych pól. [syntax=delphi]function TForm1.SumujWszystkieFormy:Currency; var idx : integer; f2 : TForm2; ed : TEdit; s : string; begin result:=0; for idx:=0 to i do begin s:='0'; f2:=TForm2(Form1.FindComponent('Forma'+I... if...
Może coś w ten deseń? Aczkolwiek odradzam. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Edit7: TEdit; Edit8: TEdit; Edit9:...
Ja dziedziczyłbym normalnie, po TEdit. Zrobiłbym własny override OnChange i wywoływał inherit w zależnosci od statusu.
A może zrezygnuj całkowicie z TMaskEdit i zrób procedurę walidacji w zwykłym TEdit-cie?
Witam!!! Mam pytanko :Właściwość interval działa w milisekundach ,czyli muszę wpisać 1000 żeby mieć akcję za sekundę . Np . mam taki program ; begin Timer1.Interval := StrToInt(Edit1.Text); Timer1.Enabled := true; end; Wpisuję w TEdit 1000 i za 1 sekundę uruchamia mi się TTimer . A jak zrobić żeby po wpisaniu w TEdit 1 za sekundę uruchomił mi się TTimer...
lub funkcją edit1.text:=formatfloat('maska',zmienna)... gdzie maska = '0.0'
mam tam true hmm
Nic :) TEdit.Text zawiera tekst który wpisałeś, niezależnie czy pokazuje tekst czy gwiazdki.
Utworzyłem sobie testową bazę danych : http://obrazki.elektroda.pl/9418278000_1...
to nie stosujesz żadnej instrukcji. Za przejmowanie tekstu odpowiadają odpowiednie komponenty, jak np. TEdit czy TMemo. Względne gotowe okienka typu InputQuery,
Nie czuję się weteranem Delphi, korzystam, ale jestem słaby... [syntax=delphi]for i := 0 to self.ComponentCount-1 do if (self.Components[i] is TEdit) then TEdit(self.Components[i]).enable := False; else if (self.Components[i] is TCheckBox) then TCheckbox(self.Components[i]).enable := False; else if (self.Components[i] is Txxxxxx) then .... .... ....[/syntax]
Albo przeedytować kontrolkę tj. przerobić metodę write właściwości TEdit.text i zapisać jako np.TeditNo i używać. Przynajmniej w Delphi. Ale i w C++ też to idzie. Kod żródłowy kontrolek jest gdzieś w katalogu z Builderem.
Pozwolę sobie otworzyć temat i może odrobinkę Ci pomóc. Przeanalizuj taki kod : [syntax=delphi]unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TSamochod = class(TObject) nazwa : string; opis : string; end; TForm1 = class(TForm) ListBox1: TListBox; Label1: TLabel; Button1: TButton; Memo1:...
[syntax=delphi]unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ComPort; type TForm1 = class(TForm) CheckBox: TCheckBox; ProgressBar: TProgressBar; RShow: TEdit; Memo: TMemo; ComPort: TComPort; procedure ComPortRxChar(Sender:TObject;Count:Integ... private procedure SetProgressBar(Value:Integer);...
Dostęp do bazy MS Access-a w Delphi można uzyskać dość łatwo. Na przykład za pomocą komponentów ADO. Potrzebujesz do tego dwóch komponentów : TADOConnection oraz TADOTable. Napisałem na szybko aplikację do połączenia z plikiem MDB, ale jest ona napisana w Delphi 2009, wiec raczej jej pod Delphi 7 nie otworzysz. Nie jest to jednak problem, bo aplikacja...
Witam, Na forum ten temat przewija się co chwilę w różnych kontekstach. Wystarczyło poszukać. Ale skoro się nie udało, to jeszcze raz: Np: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Math; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Button2: TButton; procedure HexToDec(Sender:...
Zmień deklarację typu TForm1 type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private function Zaokr(const AValue: Double; const ADigit:...
Dzięki Oloam dopiero zaczynam i rzeczywiście tego nie zrobiłem teraz chdzi wszystko wyśmienicie. Potrzebowałbym jeszcze podpowiedzi jak z tego Stringa wyciągnąć liczbę tak abym ją mógł wyswietlić w TLabel albo TEdit, docelowo chcę te wartości zmaieścić na wykresie - ma to być forma rejestratora temperatury. Pozdr. Lolek50
Zadeklaruj zmienną typu string i w niej przechowuj ścieżkę dostępu. W opcjach dodaj TEdit i jego Caption zapisuj do tej zmiennej. Potem niech jest odczytywana przez program w momencie wykonania. Mogłeś załączyć kod programu, a nie skompilowaną wersję.
Fragment programu gdzie jest dzielenie i ten wyjątek: [syntax=delphi]procedure TForm1.Button11Click(Sender: TObject); begin case op of 1: begin liczba:=strtofloat(s); liczba:=bufor+liczba; end; 2: begin liczba:=strtofloat(s); liczba:=bufor-liczba; end; 3: begin liczba:=strtofloat(s); liczba:=bufor*liczba; end; 4: begin liczba:=strtofloat(s); if liczba...
Witam. Mam Delphi 7 Personal i nie mogę (albo nie umiem) go skompilować, nie wiem dlaczego, może popełniłem jakiś błąd (pomijając to że ten program:) jest bez sensu). Próbowałem tak: Project ----> Compile project lub ctrl+F9 i nie działa (nic się nie dzieje). Dodam że jestem w progrogramowaniu jeszcze zielony:( unit Unit1; interface uses Windows, Messages,...
Napisze w Delphi jak i co a Ty zrobisz to W BCB bo są te same funkcje tylko trzeba uważać na małe i duże litery for i:=0 to ComponentCount-1 do if (Component[i] is Tedit) then (component[i] as TEdit).Text:='Bla bla Bla'; a chyba tak to powinno wyglądać w BCB for (i=0;i<ComponentCount;i++) { //ups nie wiem jak jest w BCB sprawdzanie Typu (TEdit)Component[i]->Text...
Ten błąd odnosi się do tego: [syntax=delphi]procedure TForm1.Oblicz1Click(Sender: TObject); begin Edit7:=(((((Edit13 / Edit14)/Edit1)/Edit15)*Edit16)*Edit18); end; [/syntax] Skoro deklarujesz Edit7 (i całą resztę EditX) jako TEdit, to jak chcesz wykonywać jakiekolwiek operacje matematyczne na samym komponencie? Może chodzi Ci o wprowadzone tam wartości?
No i stało się - powstał [url=http://www.dzyszla.aplus.pl/program... komponentów, na które można przeciągnąć pliki :) I pięknie działa. Z jednym tylko problem - chciałem to samo zastosować dla TImage, lecz ta klasa nie dziedziczy z TWinControl, przez co nie ma czegoś takiego, jak WndCreate/WndDestroy. :( I pytanko - czy w zasadzie...
Witam Usuń dwa ostatnie resety bo przez nie wracasz na poszątek pliku unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons; type Tdzienne = class(TForm) Edit4: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Button1: TButton;...
Tylko że średnio rozumie to co tam jest ja potrzebuję informacji to skopuj i wklej tu. Dodano po 12 I co zrobić żeby po naciśnięciu 1 przycisku włączają się po kolei 4 piny? Dodano po 1 Mój kod [syntax=delphi]unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, zlportio; type...
Po co TMemo? Wystarczy TStringList. A najszybciej to zrobić po prostu otwarcie pliku (FileAssign albo AssignFile - nie pamiętam, Rewrtie (choć to Delphi, nie wiem jak BCB) i na końcu zamknięcie). Można też jak najbardziej użyć strumieni pikowych (TFileStream) - to już tak bardziej po obiektowemu ;) Przykłady pod klawiszem F1 po wpisaniu podanych słów...
W TEdit jest taka właściwość SelText, może w TMemo też jest. Wystarczy przypisać do niej nowy tekst, zastępuje on aktualnie zaznaczony. Jeśli nic nie jest zaznaczone, tekst jest wklejany w miejscu kursora (zasada taka sama jak przy ręcznym wklejaniu ze schowka).
nie to są kody błędów do opla Pytałem, czy próbowałes kompilować kod podany przez tzok: unit CodeChecker; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) txtErrorCode: TEdit; txtErrorDescription: TEdit; btnCheck: TButton; procedure btnCheckClick(Sender:...
Witaj jestem początkujący w Delphi co jest z tym kodem ,że nie działa mi to proszę o pomoc. Chodzi o warunek : unit suma1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Edit2: TEdit; Label2: TLabel; Label3: TLabel; Button1: TButton;...
Hello! Mam problem. Nie wiem jak wyświetlić w TEdit liczbę float(extended) z większą dokładnością niż te 18 miejsc po przecinku. Używam funkcji FloatToStrF(X, ffFixed, 100, 1000); w ostatniej pozycji mogę wpisać nawet kilka milionów i tak wyświetli tylko te 18 cyfr. A gdy zmienię typ ffFixed na coś innego to jeszcze gorzej ! Z góry dzięki. Zamykam....
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 lub kursory - wtedy nimi poruszamy się po przyciskach...
siemanko mam jeszce jedno pytanko do tego tematu... na formularzu oprocz tej tabeli mam jeszce trzy pola Tedit w ktorych wpisuje wartosci liczbowe, wykorzystywane do obliczen razem z tymi z tabeli... chcialbym zrobic cos takiego aby zapisujac dane z tabeli do pliku tekstowego razem z nimi zapisywane byly wartosci liczbowe z tych trzech pol edit, no...
delphi otwieranie plików delphi kalibracja delphi sondy delphi
arkusze zawodowe schodowy styki iskrownik kabel
interfejs multidiag interfejs multidiag
Lokalizacja bezpiecznika 12V w Volvo FH 460 2019 Programator do Vestel 17MB170: RT809F, CH341A, TL866II Plus, EZP2019+
