Zeichnen TImage falsche Farbe bei Hintergrundbild

[theo]

Du bringst wieder Klassenmethoden mit normalen durcheinander.

Hast du das schon gelesen?
https://www.delphi-treff.de/object-pasc ... d-objekte/
Nimm dir Zeit dafür, das zu verstehen.
Es ist eine tolle, knappe Zusammenfassung des Wesentlichen in Punkto Delphi und Objektorientierung.

[compmgmt]

[...]

Code: Alles auswählen

procedure TForm1.Button3Click(Sender: TObject);
begin
  TVersuch.Zweitefunction();
end;

[...]
Und schon ist der Fehler da...

Du musst auch eine Variable nehmen, nicht die Klasse. Die Klasse ist quasi nur die "Vorlage". Allgemein musst du folgendermaßen vorgehen:
1. Erstellen
2. Funktionen der Klasse Aufrufen
3. Zerstören und Freigeben, wenn es nicht mehr benötigt wird. (in bestimmten Fällen nicht notwenig, da es automatisch gemacht wird)

Also in deinem Beispiel ungefähr so:

Code: Alles auswählen

 
var
  Versuch: TVersuch; // Variable definieren
begin
  Versuch := TVersuch.Create; // Erstellen
  Versuch.ZweiteFunktion; // Funktionsaufruf
end;

[vazili_Zaitzef]

Danke

Vollhorst im Dienst. Gleiche Fehler ein zweites Mal
Danke für die Hilfe

Da habe ich noch eine Frage

Kann man auch Klassen weiter runter brechen?

Versuch.ZweiteFunktion.ErsteOperation

[m.fuchs]

Kann man auch Klassen weiter runter brechen?

Versuch.ZweiteFunktion.ErsteOperation

Warum nicht:

Code: Alles auswählen

unit MeineUnit;
{$MODE ObjFpc}
{$H+}
 
interface
 
uses
  Classes, SysUtils;
 
type
  TMeineSubClass = class(TObject)
    public
      procedure MeineMethode;
  end;
 
  TMeineClass = class(TObject)
    private
      FMeineSubClass: TMeineSubClass;
    public
      property MeineSubClass: TMeineSubClass read FMeineSubClass;
    public
      constructor Create;
      destructor Destroy; override;
  end;
 
var
  MeineClass: TMeineClass;
 
implementation
 
procedure TMeineClass.SetMeineSubClass(AValue: TMeineSubClass);
begin
  if FMeineSubClass = AValue then Exit;
  FMeineSubClass := AValue;
end;
 
constructor TMeineClass.Create;
begin
  inherited Create;
  FMeineSubClass := TMeineSubClass.Create;
end;
 
destructor TMeineClass.Destroy;
begin
  FreeAndNil(FMeineSubClass);
  inherited Destroy;
end;
 
procedure TMeineSubClass.MeineMethode;
begin
  Beep;
end;
 
initialization
  MeineClass := TMeineClass.Create;
 
finalization
  FreeAndNil(MeineClass);
 
end.

Der Aufruf kann dann zum Beispiel so erfolgen:

Code: Alles auswählen

program Project1;
{$MODE ObjFpc}{$H+}
 
uses
 Classes, MeineUnit;
 
begin
  MeineUnit.MeineClass.MeineSubClass.MeineMethode;
end.

[Mathias]

Kann man auch Klassen weiter runter brechen?

Dazu noch was lustiges, sowas wird fehlerlos kompiliert. Aber beim Ausführen wird ein SIGSEV ausgelöst.

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
begin
  Parent.Parent.Parent.Parent.Parent.Parent.Parent := Self;
end;

Ein Beispiel, das eher Sinn mach, da sieht man die Verschachtelung sehr gut.
Es Wird dass erste Byte eine Images ausgelesen.

Code: Alles auswählen

var
  b: byte;
begin
  b := Image1.Picture.Bitmap.RawImage.Data^;
 

[vazili_Zaitzef]

Danke, das sieht doch gut aus.
Werde ich in meinem Urlaub mal ausprobieren
Bin mal gespannt was so geht