Toon posts:

[delphi] alle edit velden in 1 form kleur wijzigen

Pagina: 1
Acties:

Verwijderd

Topicstarter
hoi,

ff vraagje, hoe zeg ik in delphi dat hij een form moet doorlopen en voor elk object dat hij tegenkomt indien dit een dbedit-veld is de kleur op groen zet ??

avb

  • jelmervos
  • Registratie: Oktober 2000
  • Niet online

jelmervos

Simple user

Run-time of design-time?

"The shell stopped unexpectedly and Explorer.exe was restarted."


  • Marv
  • Registratie: Oktober 2000
  • Laatst online: 11-06 06:52
Kijk eens naar componentcount. :)

"Everything I've ever done or said is the complete opposite of what I've wanted" -- George


  • jelmervos
  • Registratie: Oktober 2000
  • Niet online

jelmervos

Simple user

Design-time: Gewoon met shift alles selecteren en dan de Color property zetten.

"The shell stopped unexpectedly and Explorer.exe was restarted."


  • jelmervos
  • Registratie: Oktober 2000
  • Niet online

jelmervos

Simple user

Run-time: Component count in een for lus zetten en dan checken of het een Edit is, zoja: Color zetten (type casting gebruiken).

"The shell stopped unexpectedly and Explorer.exe was restarted."


  • Sjnirk
  • Registratie: Maart 2001
  • Laatst online: 27-03-2025

Sjnirk

Hie vrieve

Dit lijkt me een topic van iemand die op een hogeschool zuyd zit, heb ik gelijk, delphi 1?

Bikkelen gebeurt pas na 2:00


Verwijderd

Topicstarter
die for lus lukt wel, maar hoe check ik of het een editveld is

  • Marv
  • Registratie: Oktober 2000
  • Laatst online: 11-06 06:52
Op donderdag 16 mei 2002 11:21 schreef LudwichLudsjmic het volgende:
die for lus lukt wel, maar hoe check ik of het een editveld is
Component.type of zo :?

Check de help... daar staat superveel in :{

"Everything I've ever done or said is the complete opposite of what I've wanted" -- George


  • Guillome
  • Registratie: Januari 2001
  • Niet online

Guillome

test

If (Components[count] is TEdit) Then TEdit(Components[count]).Color = blah

Zoiets :)

If then else matters! - I5 12600KF, Asus Tuf GT501, Gigabyte Gaming OC 16G 5080 RTX, Asus Tuf Gaming H670 Pro, 48GB, Corsair RM850X PSU, SN850 1TB, Arctic Liquid Freezer 280, ASUS RT-AX1800U router

Pagina: 1