Kanał - ATNEL tech-forum
Wszystkie działy
Najnowsze wątki

KURS HOME ASSISTANT

Chcesz zautomatyzować swój dom bez skomplikowanego kodowania?
Zastanawiasz się nad wyborem sprzętu, oprogramowania i aplikacji?
Od czego zacząć przygodę z HA w 2025? Co będzie najlepsze na start?

Nasz kurs Home Assistant nauczy Cię krok po kroku, jak łatwo zautomatyzować swój dom i oszczędzić na rachunkach za prąd i ogrzewanie. Bez chmur, bez zbędnych abonamentów. Twoja przygoda z Home Assistant zaczyna się tutaj!

↓↓↓

    Szanujemy Twoją prywatność. Możesz wypisać się w dowolnym momencie.




    Teraz jest 3 maja 2025, o 08:37


    Strefa czasowa: UTC + 1





    Utwórz nowy wątek Odpowiedz w wątku  [ Posty: 3 ] 
    Autor Wiadomość
    PostNapisane: 17 wrz 2017, o 17:30 
    Offline
    Użytkownik

    Dołączył(a): 23 cze 2014
    Posty: 54
    Pomógł: 0

    Witam
    Pisałem dziś w delphi program z dużą ilością checkboxów, w każdym chechboxie po kliknięciu oprócz zaznaczenia miał się zmieniać kolor fonta, więc wewnątrz procedury obsługującej kliknięcie checboxa była zmiana koloru fontu.
    Teraz pytanie - czy da się jakoś odwołać do nazwy obiektu występującego w procedurze ? - chodzi mi o to żeby nie trzeba było kilkanaście razy zmieniać checkbox1.font.color :=.... na checkbox2.font.color... itd.
    Czy jest jakiś sposób żeby napisać coś uniwersalnego i kopiować do kilkunastu chcekboxów (lub wrzucić do wywoływanej tam procedury) ?



    Góra
     Zobacz profil  
    cytowanie selektywne  Cytuj  
    PostNapisane: 17 wrz 2017, o 18:40 
    Offline
    Użytkownik

    Dołączył(a): 09 gru 2013
    Posty: 103
    Pomógł: 3

    Dawno w Delphi nie kodziłem, ale spróbuj tak:


    Składnia: [ Pobierz ] [ Ukryj ]
    język delphi
    Musisz się zalogować, aby zobaczyć kod źródłowy. Tylko zalogowani użytkownicy mogą widzieć kod.


    Autor postu otrzymał pochwałę


    Góra
     Zobacz profil  
    cytowanie selektywne  Cytuj  
    PostNapisane: 17 wrz 2017, o 20:11 
    Offline
    Użytkownik

    Dołączył(a): 23 cze 2014
    Posty: 54
    Pomógł: 0

    Dzięki , podsunąłeś mi rozwiązanie, zrobiłem to inaczej , ale dzięki temu do wielu obiektów stosuję kopiuj - wklej.

    Podaję, może komuś się przyda.

    Kod:
    procedure TForm1.chckbx13Click(Sender: TObject);
    begin
        if (Sender as TRzCheckbox).Checked then             
        begin
            (Sender as TRzCheckbox).Font.Color := clRed;
        end
          else
          begin
          (Sender as TRzCheckbox).Font.Color := clLime;
          end;
    end;



    Góra
     Zobacz profil  
    cytowanie selektywne  Cytuj  
    Wyświetl posty nie starsze niż:  Sortuj wg  
    Utwórz nowy wątek Odpowiedz w wątku  [ Posty: 3 ] 

    Strefa czasowa: UTC + 1


    Kto przegląda forum

    Użytkownicy przeglądający ten dział: Brak zidentyfikowanych użytkowników i 0 gości


    Nie możesz rozpoczynać nowych wątków
    Nie możesz odpowiadać w wątkach
    Nie możesz edytować swoich postów
    Nie możesz usuwać swoich postów
    Nie możesz dodawać załączników

    Szukaj:
    Skocz do:  
    Sitemap
    Technologię dostarcza phpBB® Forum Software © phpBB Group phpBB3.PL
    phpBB SEO