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