ATNEL tech-forum

Re: Nazwa obiektu wewnątrz procedury

2017-09-17T20:11:01+01:00

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.

Code:

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;

Statystyki: Napisane przez north — 17 wrz 2017, o 20:11

Re: Nazwa obiektu wewnątrz procedury

2017-09-17T18:40:37+01:00

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

[syntax=delphi]procedure Test(Sender: TObject);
begin
if (Sender is TCheckbox) then
(Sender as TCheckbox).Font.Color := ....
end;

Test(Checkbox1);
Test(Checkbox2);[/syntax]

Statystyki: Napisane przez Elektro_maniak — 17 wrz 2017, o 18:40

Nazwa obiektu wewnątrz procedury

2017-09-17T17:30:20+01:00

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) ?

Statystyki: Napisane przez north — 17 wrz 2017, o 17:30