Indsæt billede

Andreas : Du laven en form som den du beskriver og så skriver du det følgende kode :

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not OpenPictureDialog1.Execute then
    Exit;
  Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Image1.Picture.Assign(nil);
end;


Jens B

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
    begin
  Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Image1.Picture.Assign(nil);
end;


sådan ser den rigtig ud... *Ss*

teddy_boy  >> Lad os ikke starte en religiøs diskution om dette emne ... Du kan ikke med rette antage at en negerende boolsk udtryk er forkert !

Jens B

HVAD SNAKKER DU OM JENS..... det jeg har skrivet virker i delphi 5

teddy_boy  >> Yeps ! Nøjagtig min pointe !

Du kan ikke på nogen måde antage at den ene metode er mere rigtig end den anden. Om du laver dine boolske udtryk negerende eller ej er vel i høj grad en smags sag ....

Jens B

Ja ja...

Ingen af delene har virket endnu....

Jeg har prøvet begge forslag med uden held...

Programmet er en adresseliste med billeder af personerne...
Men hver gang jeg indsætter et billede ved en person og gå videre til næste person forsvinder det billede jeg lige har sat ind...

Hvorfor?????


Andreas

Desuden skulle billedet gerne passe ind i DBPicture formen....

weis >> Hvorfor det ikke virker er svært at sige, men jeg er 2005 sikker på at det kode jeg viste løser det su spurgte om .. borland givver selv et eksempel på hvordan man laver BLOP fields i en Database ...

Jens B

ja, men problemet er stadigvæk at den ikke gemmer billedet når programmet lukkes... så det også vil blive vist næste gang det åbnes...

Andreas