Einzelnen Beitrag anzeigen

gaui

Registriert seit: 29. Dez 2008
Ort: Tecklenburg
35 Beiträge
 
Delphi 5 Standard
 
#14

Re: Bitmap Datein in Delphi anzeigen und andere sachen

  Alt 30. Dez 2008, 21:44
Delphi-Quellcode:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Open: TOpenDialog;
    bBildladen: TButton;
    Image1: TImage;
    procedure bBildladenClick(Sender: TObject);
  private
    { Private-Deklarationen }
    DasBitmap:TBitmap;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.bBildladenClick(Sender: TObject);
begin
      if Open.Execute then
      begin
           if Open.Execute then begin
   DasBitmap.LoadFromFile(Open.FileName);
   Image1.Picture.Bitmap.Assign(DasBitmap)
   end;
      end;


end;

end.
Access Vialotion >.< hmm wenn ich das öffne dann hat der keinen datentyp seht ihr in der datei
Angehängte Dateien
Dateityp: exe facharbeitproject_877.exe (309,0 KB, 4x aufgerufen)
  Mit Zitat antworten Zitat