Mysteriöser Fehler

[sakura]

Zitat von Brüggendiek:

Wenn es dann klappt, hast Du in irgendeiner Unit eine neue tBitMap definiert und die wird dann genommen!

Nicht irgendeine Unit. Das ist ein Standard Problem. tagBitmap und TBitmap sind durch Windows definierte Konstrukte. In der Uses Klausel steht die Unit Graphics vor der Unit Windows. Daraus ergibt sich dieses Problem. Auszug aus Windows.pas

Delphi-Quellcode:

{ Bitmap Header Definition }
  PBitmap = ^TBitmap;
  {$EXTERNALSYM tagBITMAP}
  tagBITMAP = packed record
    bmType: Longint;
    bmWidth: Longint;
    bmHeight: Longint;
    bmWidthBytes: Longint;
    bmPlanes: Word;
    bmBitsPixel: Word;
    bmBits: Pointer;
  end;
  TBitmap = tagBITMAP;
  {$EXTERNALSYM BITMAP}
  BITMAP = tagBITMAP;