Zvravim,potreboval bych vedet jestli jde zamenit cast nazvu komponenty za neznamou,abych mohl pouzit jeden raden,misto deseti...diky za kazdy tip.....pouzivam komponentu image a mam jich tam asi 15,potrbuju jim priradit stejny obrazek
Fórum › Delphi
Zameneni nazvu komponenty za neznamou..specha
v tom priklade som pocital s tym ze mas komponenty s nazvami Image1, Image2, Image3...
ak nevies ich nazvy tak prejdes vsetky komponenty a zistis ktory je instanciou triedy TImage;
for i:=0 to Self.ComponentCount - 1 do begin
if (Self.Components[i] is TImage) then TImage(Self.Components[i]).Picture.LoadFromFile('obrazok');
end;
fabio napsal:
proc se tam pise canvas???co je to za parametr?
canvas v tom prvom prikalde bol navyse, nemusis ho tam pisat, inak canvas je "platno" na ktore sa kresli,
a prikladam ti dalsie riesenie (funckne ;-))
var
i: integer;
begin
for i:=1 to 4 do
TButton(Form1.FindChildControl('Button'+IntToStr(i))).Left := 10;
end;
tento kod zarovna 4 tlacitka 10 px od lavej strany okna tvojho programu
Zjistit počet nových příspěvků
Přidej příspěvek
Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!
Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku
×Vložení zdrojáku
×Vložení obrázku
×Vložení videa
Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
Uživatelé prohlížející si toto vlákno
Uživatelé on-line: 0 registrovaných, 3 hosté
Podobná vlákna
Rovnice s jednou neznámou — založil Kárl
Rovnice s jednou neznámou (pospíchá) — založil Kárl
Úkol - spěchá — založil Mirek
Prověrka spěchá — založil Pavel46
Rekurze SPĚCHÁ — založil Hanmir1