skal have hjælp til en funktion..

if edit1.text = 'er du sej' then
label1.caption := 'ja, max'
else label1.Caption := 'Jeg forstår ikke hvad du mener';

- if edit1.text = 'er du sej' then image1.picture.load.sur.jpg

kan ikke få den til at virke den image code..

help me !!

Om du kan loade et .jpg billede direkte ind i et Image sädan uden videre er jeg ikke sikker pä.
Hvis du vil loade et .bmp billede, kan du göre det säledes:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Image1: TImage;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.text = 'er du sej' then
begin
label1.caption := 'ja, max';
Image1.Picture.LoadFromFile('C:\\sur.bmp')
end
else
label1.Caption := 'Jeg forstår ikke hvad du mener';
end;

end.

Venlig hilsen

Og så er der noget der skal indkapsles

procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text = 'er du sej') then
begin
Label1.Caption := 'ja, max';
Image1.Picture.LoadFromFile('C:\\sur.bmp')
end
else
Label1.Caption := 'Jeg forstår ikke hvad du mener';
end;

end.


-------------------------------------------------------
Jonas (Decko)
-------------------------------------------------------

Det kan godt ske at det er det, men burde den ikke selv tilføje den??

Hvis jeg loader et jpeg-img ind i designtime, og jeg så "Clearer" den igen, så virker den igen ikke.. Men hvis der er loadet et pic ind i designtime, så kan jeg godt loade andre jpeg-pics ind under runtime...

Om det er fordi den sletter jpeg i Uses ved jeg ikke..

Mvh...
Allan Nørgaard Kristensen

Hvis du selv smider Jpeg i uses, så virker det fint i min Delphi 6.. Om det skyldes det at du bruger Delphi 7 ved jeg ikke(Btw. så ved jeg jo du bruger D7 )...

MH.

The-Freak

Livet er for kort til at kede sig.

Og så er der noget der skal indkapsles

procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text = 'er du sej') then
begin
Label1.Caption := 'ja, max';
Image1.Picture.LoadFromFile('C:\\sur.bmp')
end
else
Label1.Caption := 'Jeg forstår ikke hvad du mener';
end;

end.


-------------------------------------------------------
Jonas (Decko)
-------------------------------------------------------

Koden fungerer ogsä uden indkapslingen..
Er naturligvis testet :-)

Hvis du bruger TImage kan du skrive:


Image1.picture.LoadFromFile('C:\\Sur.jpg');


Men så vil den højest sandsynlig skrive at .jpg ikke er en godkendt filtype. Jeg går over i object-inspectoren, og
finder der, hvor der står picture, loader et gråt billede (eller hvad farve baggrunbden nu har) ind (Jpg-fil). Så kan den godt looade jpg-filer ind. Men hvis der ikke er noget billede loadet ind fra designtime, så vil den ikke

Ved ikke hvorfor...

Håber du kan bruge det..

Mvh...
Allan Nørgaard Kristensen

Ups.. dbl.klik

Mvh...
Allan Nørgaard Kristensen

[Redigeret d. 10/08-04 09:51:12 af tjallan]

Prøv at tilføje JPEG til uses, så burde det ikke være nødvendigt at loade et JPEG billede i designtime.

Men så vil den højest sandsynlig skrive at .jpg ikke er en godkendt filtype. Jeg går over i object-inspectoren, og
finder der, hvor der står picture, loader et gråt billede (eller hvad farve baggrunbden nu har) ind (Jpg-fil). Så kan den godt looade jpg-filer ind. Men hvis der ikke er noget billede loadet ind fra designtime, så vil den ikke

Ved ikke hvorfor...

Kim Jensen aka BOSH
http://www.hulubulu.dk

Det kan godt ske at det er det, men burde den ikke selv tilføje den??

Hvis jeg loader et jpeg-img ind i designtime, og jeg så "Clearer" den igen, så virker den igen ikke.. Men hvis der er loadet et pic ind i designtime, så kan jeg godt loade andre jpeg-pics ind under runtime...

Om det er fordi den sletter jpeg i Uses ved jeg ikke..

Mvh...
Allan Nørgaard Kristensen