Einzelnen Beitrag anzeigen

DelphiNewbie929

Registriert seit: 15. Dez 2014
3 Beiträge
 
#1

Methodenaufruf nur für Klassenmethoden und Konstruktoren

  Alt 15. Dez 2014, 12:35
Delphi-Version: 5
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

Geändert von DelphiNewbie929 (15. Dez 2014 um 12:39 Uhr)
  Mit Zitat antworten Zitat