Dephi jautājums par Editu

[Murderer]

Vai kādam ir idejas, kā varētu vienkāršāk uztaisīt, lai katram edit laukam, tam uzspiežot iezīmētos viss tajā esošais teksts? Lieta ir tāda, ka man visā formā ir pāri 20 Editiem. Un tagad man katrā Editā iekš Notikuma On Click ir jāraksta

Kods:

Edit1.SelectAll;

Tad jāņem nākošais Edit2 un tur jāraksta tas pats

Kods:

Edit2.SelectAll;

Un tā visiem 20+. Bet vai nevar kkā vienkāršāk, jo vienīgais, kas mainās kodā ir cipari pie Edit. Tā kā tas ir komponentes nosaukums, es nevaru rakstīt Edit().SelectAll; un iekavās rakstīt kādu mainīgo.
Kā varētu izdarīt tā, lai pietiktu ar vienu notikumu un pielikt šo pašu notikumu katrai komponentei, un lai viss strādātu?

[PeterB]

Ieliec visiem Editiem vienu procedūru, kurā ir Sender.SelectAll;. Vai kaut kā tā, precīzais mainīgā nosaukums ir uzģenerētajā procedūras deklarācijā atrodams.

[ulzha]

OO droši vien būtu taisīt šai vajadzībai komponentam apakšklasi, tavsedit, kurš onclick uzvedas citādi nekā standarta edit, un lietot to.

Vēl variants iekodēties augstāka līmeņa notikumu apstādē, visai formai, un noskaidrot event izcelsmi, un ja tas ir viens no tiem editiem, teikt viņam, ko vajag.

Kā konkrēti Delfos, nezinu.

[PeterB]

Skaidrības labad sameklēju http://delphi.about.com/od/objectpascalide/a/sender.htm

[Ēriks Klotiņš]

Pamēģini ciklā apstaigāt visus formas komponentus un tiem, kas ir TEdit pieliec sev vajadzīgo notikuma apstrādi

[123123123]

object inspectorā ieliec katram editam OnClick lai izsauc pirmā edita procedūru...

[Murderer]

(27.01.2010 09:35 )Oskars Zīle rakstīja:  object inspectorā ieliec katram editam OnClick lai izsauc pirmā edita procedūru...

Ar šo man problēmu nav. Problēma ir tur, ka, izsaucot tā Edita procedūru, kodā netiek apstrādāts īstais Edits.

(26.01.2010 20:25 )PeterB rakstīja:  Skaidrības labad sameklēju http://delphi.about.com/od/objectpascalide/a/sender.htm

Šis īsti nestrādā. Iespējams, Senderam klāt jāraksta vēl kkas. Wnk uzmet šādu erroru:
http://clip2net.com/page/m0/3630797
Varbūt es kko daru nepareizi. :

EDIT: Tomēr sapratu. Paldies, PeterB! Jūsu padoms noderēja, pietrūka tikai vienas rindiņas:

Kods:

With Sender as TEdit do
SelectAll;

Tagad zināšu, kā strādāt ar Senderu