Hallo,
ich habe ein kleines Problem. Zur Info: Ich arbeite mit Delphi 7.
Nun zu meinem Problem: Ich habe eine kleine Adresstabelle, in der ich auch ein Passfoto anzeigen lasse.
Mit Doppelklick auf das Bild möchte ich das Bild vergrößert in einem neuen Fenster darstellen (neue Form). Nun fällt mir auf, dass der Satzzeiger aber immer auf dem ersten Satz stehen bleibt. Ich habe zur Kontrolle ein DBGrid anzeigen lassen. Dadurch wird nun immer das erste Bild gezeigt. D.h. wenn ich auf dem Hauptbildschirm auf Satz 3 bin, sollte auch das Bild des 3ten datensatzes eingelesen werden.
anbei mal der Code, der das Bild anzeigt, und beim vorwärst Button das Bild aktualisiert:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
fNameJPG := table1.fieldbyname('Text2').asString;
If fNameJPG <> ' ' Then begin
Image1.ClientHeight := 200;
Image1.ClientWidth := 160;
Image1.Picture.LoadFromFile(fNameJPG);
Image1.ClientHeight := 200;
Image1.ClientWidth := 160;
end else begin
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
table1.Next;
fNameJPG := table1.fieldbyname('text2').asString;
Image1.ClientHeight := 200;
Image1.ClientWidth := 160;
Image1.Picture.LoadFromFile(fNameJPG);
Image1.ClientHeight := 200;
Image1.ClientWidth := 160;
end;
im 2ten Fenster habe ich folgenden Code. Mit nummer wollte ich den Datensatz übergeben, aber das hat alles nicht funktioniert.
Delphi-Quellcode:
procedure TForm2.FormCreate(Sender: TObject);
begin
Table1.RecNo := nummer;
Table1.Refresh;
Label1.Caption := table1.FieldbyName('Text2').asString;
fNameJPG := table1.fieldbyname('text2').asString;
Label2.Caption :=fNameJPG;
Image1.ClientHeight := 800;
Image1.ClientWidth := 640;
Image1.Picture.LoadFromFile(fNameJPG);
Image1.ClientHeight := 800;
Image1.ClientWidth := 640;
end;
Hat irgendjemand eine Idee, was ich falsch mache bzw. ob man das auch anders (aber ebenso einfacch) lösen kann?
Vielen Dank im voraus und viele Grüße
Andreas
[edit=Matze][delphi]-Tags repariert. MfG, Matze[/edit]