Einzelnen Beitrag anzeigen

Benutzerbild von Jelly
Jelly

Registriert seit: 11. Apr 2003
Ort: Moestroff (Luxemburg)
3.741 Beiträge
 
Delphi 2007 Professional
 
#8

Re: Bilder aus mehreren Datensätzen in eine Tabelle anzeigen

  Alt 28. Aug 2006, 10:03
Schmeiss eine scrollbox, listbox, ein image (imgtemplate) und einen button auf deine Form... Hier der Code zum Laden der Bilder (in meinem Fall aus Dateien und alle mit gleichen Breiten).

Delphi-Quellcode:
implementation

uses
  Windows;

{$R *.dfm}

procedure TForm16.Button1Click(Sender: TObject);
var
  i: Integer;
  fn: string;
  img: TImage;
begin
     for i := 0 to listbox1.items.count - 1 do begin
          fn := listbox1.items[i] ;
          img := TImage.create (Self) ;
          img.Parent := scrollbox1 ;
          img.AutoSize := false ;
          img.Stretch := false ;
          img.Tag := i ;
          img.Left := (i*32) + 8 ;
          img.Top := 8 ;
          img.Width := 24 ;
          img.height := 24 ;
          img.Picture.LoadFromFile(fn);
          img.Cursor := crHandPoint ;
          img.OnClick := imgTemplateClick ;
     end;

end;

procedure TForm16.imgtemplateClick(Sender: TObject);
begin
    caption := inttostr ((Sender as TImage).tag) ;
end;

end.
  Mit Zitat antworten Zitat