Delphi

marcinw899 · 24 Listopada 2006

Witam!

na informatyce własnie pzerabiamy deplhi, a ze jestem niezbyt kumaty mam problem. Mogłby mi ktos napisac cały kod taki ze: sa 4 guziki (buttony) i kazdy ma miec inny kolr. np klikam na jeden button i obiekt MEMO staje sie np zołty. klikam na 2 butto i memo staje sie np czerwone. Po prostu pan od informatki tłmaczył to bardziej sobie niz nam i nic nei zroumiałem z leckji:/

marcinw899 · 25 Listopada 2006

nikt nie pomoze?

szukałem i znalałzem duzo gotowcow ale nie to co potrzebowałem :/

inżynier · 25 Listopada 2006

Co za problem: skoro nie zrozumiałeś tego, co nauczyciel tłumaczył, to idź do niego i proś o powtórkę, dodatkowe wyjaśnienia, rozwinięcie tematu, odesłanie do właściwej literatury... Od tego jest nauczyciel i ma obowiązek nauczyć, szczególnie tych zainteresowanych.

Boisz się isć do nauczyciela, to sam przysiądź fałdów. Znalazłeś jekieś inne programiki, to je przeanalizuj i przerób. Będzie to z pożytkiem dla Ciebie, bo dokładnie zrozumiesz, o co w tym chodzi.

Poza tym problem jest prosty jak konstrukcja cepa. Czy w ogóle próbowałeś cokolwiek zrobić samemu czy też od razu założyłeś, że jesteś za głupi? Bo że za leniwy, to widzę z Twojego wpisu.

Pozdrawiam

marcinw899 · 25 Listopada 2006

pan tłumaczył nam (klasie) juz 2 razy i niestety ja nie zrozumiałem. pozyczyłem ksiazki o delphi, ale tam jest wszystko tylko nei o zmnainei kolorów :/

pq · 25 Listopada 2006

>Poza tym problem jest prosty jak konstrukcja cepa.

Problem jest raczej prosty, aczkolwiek jedna rzecz mnie męczy. Może już wszystko zapomniałem, ale chyba nie można zmienić prosto koloru Buttona, który jest ustawiony systemwide. Trzeba by użyć TBitBtn i wstawić odpowiednią bitmapę jako Glyph.

Tak czy owak przypisałbym odpowiedni kolor właściwości Tag kazdego Buttona (czy BitBtna) i pod zdarzenie OnClick wszystkich Buttonów podpiąłbym metodę zawierająca

Memo1.Color:=(Sender as TButton).Tag; //(lub as TBitBtn)

marcinw899 · 25 Listopada 2006

nie leniwy bo zapierniczałem po antykwariatach i bibliotekach (z bibliotek wypożyczyłem 3 książki w których nie było rozwiązania na mój problem.)

znalazłem coś takiego

Ukryta Zawartość

Zaloguj się, aby zobaczyć treść.

Zaloguj się, aby zobaczyć treść (możliwe logowanie za pomocą )

mój mały rozumek wywnioskował ze powinienem zamienić FORM1 na MEMO1.

ALE!!! czemu pan od informatyki podał nam coś koło 6 linijek kodu? (pamiętam ze było :

memo1.Lines.Add(edit1.Text);

w VAR było Integer i jakieś s1 i s2)

wiec skoro na stronie są podane tylko 2 linijki kodu to po co pan nam podawał 3 razy tyle i to moim zdaniem za trudne jak na drugą lekcję programowania ?

Ukryta Zawartość

Zaloguj się, aby zobaczyć treść.

Zaloguj się, aby zobaczyć treść (możliwe logowanie za pomocą )

pq · 25 Listopada 2006

Pan od informatyki moze byc zwyczajnie głupi. Mój kod zresztą, zaryzykuję nieco samochwalstwa, jest sprytniejszy i oszczedniejszy niz kod ze strony.

pq · 25 Listopada 2006

Pan od informatyki moze byc zwyczajnie głupi. Mój kod zresztą, zaryzykuję nieco samochwalstwa, jest sprytniejszy i oszczedniejszy niz kod ze strony.

inżynier · 25 Listopada 2006

marcin

Czy może ja czegoś nie zrozumiałem...??? Czy wy to macie zrobić "na sucho", czyli bez komputera? Napisać kod na papierku nie włączając Delphi? Jeśli tak, to zwracam honor. Jeśli jednak masz dostęp do komputera z Delphi, to kilka prostych eksperymentów pozwala się zorientować, jaki kod gdzie jest generowany. Mechanizm podpowiedzi (czy jak tam to się po polsku nazywa) kontekstowej podaje Ci dostępne metody dla każdego z komponentów, więc nawet nie trzeba zbyt wiele czytać w pomocy. Bawiąc się tak zepsuć nic nie można.

Więc jak to jest? Czy współczesna szkoła uczy informatyki bez komputerów? Ja już i jeszcze nie mam nikogo w szkole na tym poziomie, więc nie wiem, co tam się dzieje...

inżynier · 25 Listopada 2006

pq

Jeśli dobrze zrozumiałem pierwszy post marcina, to ma być kilka guzików, z których każdy ustawia inny kolor pola memo. Guziki zostają bez amian. Czyli potrzebna jest jedna linia kodu w procedurze obsługi zdarzenia KLIK każdego klawisza, która przypisuje właściwości KOLORTŁA pola memo wartość dowolnie wybranego koloru. Nie mam pod ręką Delphi, więc nie mogę sprawdzić nazw właściwości i metod, ale z opisu zadania wynika tyle właśnie.

Chyba oni jednak ćwiczą to Delphi tylko kredą na tablicy....

pq · 25 Listopada 2006

inżynier, 26 Lis 2006, 00:19

>pq

>

>Jeśli dobrze zrozumiałem pierwszy post marcina, to ma być kilka guzików, z których każdy ustawia

>inny kolor pola memo. Guziki zostają bez amian.

Aha, to ułatwia sprawę. Ja zrozumiałem, że guziki mają miec kolor.

> Czyli potrzebna jest jedna linia kodu w procedurze

>obsługi zdarzenia KLIK każdego klawisza, która przypisuje właściwości KOLORTŁA pola memo wartość

>dowolnie wybranego koloru.

I takie rozwiązanie (dla Form, nie dla Memo) marcin już znalazł. I prawdopodobnie o taką chodzi. To, że pan od informatyki dawał Memo.Lines.Add czy zmienne swiadczy, że albo pan od infrmatyki jest głupi, albo chodziło o cos innego (więcej).

Ja proponuję nieco inna metodę: zapisanie koloru we właściwości Tag kazdego klawisza (w Delphi TColor rzutuje się na integer). Wtedy nie jest potrzebna osobna procedura OnClick dla każdego klawisza, tylko jedna wspólna procedura, której zawartość podałem wyżej. Oczywiście jest trochę trudniej, bo kolor trzeba wpisac w Object Inspectorze jako wartość Integer zamiast korzystać z wygodnych stałych typu clYellow.

Można to ominąć wsadzając w inicjalizacja (metoda OnCreate formularza) przypisanie Button1.tag:=clYellow i tak dla wszystkich buttonów. Wtedy traci się zysk na objętości kodu, jaki daje moja metoda. Zaletą z kolei jest umiejscowienie wszystkich kolorów w jednym miejscu, co ułatwia ewentualne modyfikacje. Gdy każdy kolor jest w ososbnej procedurze OnClick lub, co gorsza we własciwościach Tag, zmiany są bardziej czasochłonne.

marcinw899 · 26 Listopada 2006

>>Jeśli dobrze zrozumiałem pierwszy post marcina, to ma być kilka guzików, z których każdy ustawia

>>inny kolor pola memo. Guziki zostają bez zamian.

tak oto chodzi. ćwiczymy normalnie na delphi (na komputerach). Wczoraj zarejestrowałem sie na stronie Borland i uzyskałem link do darmowej wersji delphi 7. Niestety transfer z ich serwera był tragiczny (zaczęło sie sciagac 8 KB/s a potem spadło do 0) wiec w tej chwili w domu nie mam zadego kompilatora.