07. september 2001 - 14:03Der 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.
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?
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
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 :-)
//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;
Synes godt om
Ny brugerNybegynder
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.