Guten Tag Community ich bin recht neu in der Welt von Delphi und habe ein kleines Problem.
Ich möchte durch ein erzeugtes Objekt mit gezeichneten Rechtecken eine Property hinzufügen wie z.b den Namen, eine Caption & ein Ereignis wie MouseDown und Mousemove
Leider finde ich so schnell keine Hilfe daher hoffe ich hier auf jemand zu treffen der sich dort etwas mehr auskennt und mir helfen kann.
hier mein Code :
unit Unit4;
interface
uses
Winapi.Windows,
Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls,
Vcl.Forms,
Vcl.Dialogs,
Vcl.ExtCtrls,
Vcl.StdCtrls;
type
TForm4 = class(TForm)
Edit1 : TEdit ;
Edit2 : TEdit ;
Edit3 : TEdit ;
Button1: TButton ;
Image1 : TImage ;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
TAuftrag = class(Tobject)
private
FName : string;
Top, Height : integer;
Fcaption : string;
public
Left , Width : integer;
procedure MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
end;
var
Form4 : TForm4;
Auftrag : Tauftrag;
implementation
{$R *.dfm}
procedure TForm4.Button1Click(Sender: TObject);
begin
Auftrag := Tauftrag.create;
Auftrag.Left := strtoint(edit1.Text);
Auftrag.Width := strtoint(edit2.Text);
Auftrag.Top := 20;
Auftrag.Height := 40;
Auftrag.FName := edit1.Text;
OnMouseDown := Auftrag.MouseDown;
image1.Canvas.Pen.Color := clblack;
Image1.Canvas.MoveTo(Auftrag.Left , Auftrag.Top) ;
image1.Canvas.LineTo(Auftrag.Left , auftrag.Height) ;
image1.Canvas.LineTo(auftrag.Width , auftrag.Height) ;
image1.Canvas.LineTo(auftrag.Width , auftrag.Top) ;
image1.Canvas.LineTo(auftrag.Left , auftrag.Top) ;
end;
procedure MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ShowMessage('Test');
end;
end.
___________________________________
Leider mag er meine Mousedown Prozedur nicht