edit ve label

[egedenizi]

Mrblar...
Menim bir edit ve çok sayıda label'im var.
edite girilen metine göre labellerin işlem görmesini istiyorum.
Örneğin edite label1 yazdığımda label1'in rengini değiştirmek istiyorum.bunun gibi.Uzun uzadıya ifler yazmak istemiyorum.Bunun kolay yolu var mıdır?
Teşekkürler....

[Asri]

Merhaba,
Forma 1 edit , 5 label, 1 button yerleştirip
button1 in OnClick ine :

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);

begin
       with Tlabel(FindComponent(edit1.Text)) do
          begin
              color:=clred;

                Parent := self;
           end;

kodunu yerleştirip çalıştırınca Edit teki değere göre label in rengini kırmızı yapıyordu.
Umarım işinizi görür.

İyi çalışmalar.

____________________
ofenX

[egedenizi]

Çok teşekkür ederim.......... SEVGİLER VE SAYGILAR.......