Avatar billede landsbytossen Nybegynder
07. september 2001 - 14:03 Der er 4 kommentarer og
1 løsning

TImage skal oprettes i runtime loop

Skal oprette et vilkårligt antal Image bokse i et loop:
for I := 1 to 255 do begin
  Image+I+.Picture.Bitmap.LoadFromResourceID(DllInstance, I);
end;
Men der skal vist opbygges en kommand string eller hvad? Og hvordan autogenerer man Image, den skal jo oprettes i runtime.
Bitmaps loades fra en dll uden problemer og en errorhandler resumes next, når en bitmaps ikke findes med det pågældende nummer.
Avatar billede martinlind Nybegynder
07. september 2001 - 14:05 #1
VAR
  Img : TImage;

Begin
  Img := TImage.Create(NIL);
end;
Avatar billede landsbytossen Nybegynder
07. september 2001 - 14:18 #2
ok, mine bitmaps bliver bare ikke vist:
for I := 1 to 6 do begin
      Img := TImage.Create(NIL);
      Img.Picture.Bitmap.LoadFromResourceID(DllInstance, I);
      Img.AutoSize := TRUE;
    end;
hvis man koder:
Image1.Picture.Bitmap.LoadFromResourceID(DllInstance, 1);  kommer billedet på image1.
Skal der sættes nogle properties eller hvad?
Avatar billede martinlind Nybegynder
07. september 2001 - 14:28 #3
Ja hvis du skal vise dem på en form, SKAL du sætte Parent til formen, evt, kan du skifte nil ud med formen også, så bliver dine img en del af formen componentliste, men du skal nok også tænke på left og top hvis du vil se dem ellers kommer de til at stå oven på hindanden
Avatar billede landsbytossen Nybegynder
07. september 2001 - 14:40 #4
Millioner af tak.
Nu jeg har eksperten: man skal efter følgende kunne reagere, hvis brugeren klikker på et af Img.
Der er noget der hedder Img.OnClick men hvordan fanger man det feks: ShowMessage (\'Du klikked på et billed\')
God weekend :-)
Avatar billede martinlind Nybegynder
07. september 2001 - 14:47 #5
//en del af dit fom obj
procedure MyOnClick( Sender : TObject );


begin
  Img := TImage.Create(); 
  Img.OnClick := MyOnClick;

end;


procedure MyOnClick( Sender : TObject );
begin
  ShowMessage(\'Hej Du\');
end;
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester