Methodenaufruf nur für Klassenmethoden und Konstruktoren

[DelphiNewbie929]

Hallo zusammen,

ich bin Delphi-Neueinsteiger und noch ein wenig am rumexperimentieren und hänge auch schon fest. Was ich will ist dass ein bestimmter Button per Methode doppelt so groß oder halb so klein gemacht werden kann. Dazu will ich 2 Funktionen erstellen, die dann in das Klick-Event zweier anderer Buttons reinkommen sollen.
Folgend sieht es grad aus, aber ich verstehe nicht, warum ständig obiger Fehler kommt:

Delphi-Quellcode:

unit Unit44;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

type
  TMeinButton = class(TForm1)

  private
    { Private-Deklarationen }
  public
  procedure SetzeDoppelteGroeße(Sender : TObject);
  procedure SetzeHalbeGroeße(Sender: TObject);
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TMeinButton.SetzeHalbeGroeße(Sender: TObject);
begin
  Self.Width := Self.Width div 2;       //Breite des Übergabeobjektes verdoppeln
  Self.Height := Self.Height div 2;     //Höhe des Übergabeobjektes verdoppeln
end;

procedure TMeinButton.SetzeDoppelteGroeße(Sender: TObject);
begin
  Self.Width := Self.Width * 2;          //Breite des Übergabeobjektes halbieren
  Self.Height := Self.Height * 2;       //Höhe des Übergabeobjektes halbieren
end;



procedure TForm1.Button2Click(Sender: TObject);
begin
  TMeinButton.SetzeDoppelteGroeße(Button1);    //Button 1 soll als Beispiel übergeben werden  --> FEHLERMELDUNG
end;

procedure TForm1.Button3Click(Sender: TObject);   //Button 1 soll als Beispiel übergeben werden --> FEHLERMELDUNG
begin
  TMeinButton.SetzeDoppelteGroeße(Button1);
end;

end.

PS: Ich hoffe ich habe das richtige Forum erwischt, ansonten bitte nochmal verschieben ;)

[himitsu]

Erstmal gehst du auf Self und nicht auf den Parameter, also wieso sollte dann die Große es Objektes im Parameter verändert werden? :zwinker:

Und dann willst du eine Klassen-Methode (class procedure), denn nur Jene kann man über die Klasse aufrufen.

Delphi-Quellcode:

class procedure SetzeDoppelteGroeße(Button: TButton);
class procedure SetzeHalbeGroeße(Button: TButton);

TMeinButton.SetzeDoppelteGroeße(Button1);

Aber eigentlich willst du doch bestimmt eher sowas?

Delphi-Quellcode:

procedure SetzeDoppelteGroeße;
procedure SetzeHalbeGroeße;

Button1.SetzeDoppelteGroeße;

[DelphiNewbie929]

Naja vllt ist Self erstmal nicht genau das richtige. Er soll ja die Werte vom übergebenen (hier Button) nehmen und verändern.

Wenn ich nun nach deiner ersten Methode vorgehe (btw. statt "self" - eine Variable namens "Button" übergebe) bekomme ich Fehler, weil sich obere Deklarationen von den unteren unterscheiden, und ebenso forward und Exteranal-Deklarationen ungenügend seien.

Was ich aber halt schon will ist eine eigene Klasse mit den Verdopplungs/Halbierungs-Methoden zu haben, die aufrufen kann


EDIT:
Es funktioniert nun doch wie gewünscht, ich habe dummerweise das "class" beim Methodenaufruf vergessen zu schreiben, daher die Fehlermeldungen ;)

Delphi-Quellcode:

class procedure TMeinButton.SetzeHalbeGroeße(Button: TButton);

Also danke dir, das ging wirklich flott und hat mir sehr geholfen!

[himitsu]

Bitte.

Zitat:

Delphi-Quellcode:

TMeinButton = class(TForm1)

Pssst: Bist'e sicher, daß dein Button eine Form ist?

[DelphiNewbie929]

Zitat:

Zitat von himitsu (Beitrag 1283460)

Pssst: Bist'e sicher, daß dein Button eine Form ist?

hmpf - schon geändert :roll:

[BadenPower]

Hallo zusammen,

Delphi-Quellcode:

  Self.Width := Self.Width div 2; //Breite des Übergabeobjektes verdoppeln

.

Hier hast Du natürlich auch Glück, dass bei der Zuweisung der Hälfte der Breite von Delphi das Ergebnis automatisch in eine Ganzzahl umgewandelt wird.

Die Hälfte von 47 wäre 23.5 was ein Extended und kein Integer wäre und strenggenommen eigentlich nicht der Property Width zugewiesen werden kann. Ein Round() wäre schön.


Vielleicht noch die Kommentare anpassen, damit sie mit dem übereinstimmen, was gemacht wird.

[baumina]

Zitat:

Zitat von BadenPower (Beitrag 1283473)

Hallo zusammen,

Delphi-Quellcode:

  Self.Width := Self.Width div 2; //Breite des Übergabeobjektes verdoppeln

.

Hier hast Du natürlich auch Glück, dass bei der Zuweisung der Hälfte der Breite von Delphi das Ergebnis automatisch in eine Ganzzahl umgewandelt wird.

Die Hälfte von 47 wäre 23.5 was ein Extended und kein Integer wäre und strenggenommen eigentlich nicht der Property Width zugewiesen werden kann. Ein Round() wäre schön.


Vielleicht noch die Kommentare anpassen, damit sie mit dem übereinstimmen, was gemacht wird.

Div liefert immer eine Ganzzahl.

[DeddyH]

Richtig, denn es ist ein ganzzahliger Operator, im Gegensatz zu "/".

[mkinzler]

Aber weder / noch DIV verdoppelt sondern beide halbieren

Zitat:

Delphi-Quellcode:

//Breite des Übergabeobjektes verdoppeln

[Zoot]

Zitat:

Zitat von mkinzler (Beitrag 1283480)

Aber weder / noch DIV verdoppelt sondern beide halbieren

Zitat:

Delphi-Quellcode:

//Breite des Übergabeobjektes verdoppeln

"*" halbiert ja auch nicht. :-D

Zitat:

Zitat von DelphiNewbie929 (Beitrag 1283454)

Delphi-Quellcode:

Self.Width := Self.Width * 2;          //Breite des Übergabeobjektes halbieren