Guten Tat Community,
ich lerne momentan viel in Delphi und möchte mir einen Kundenkalender zusammenschnipseln.
Als erstes habe ich die Oberfläche gestaltet mit 3 Edit Felder einem Button und einem Image.
Nun das erste Edit-Feld soll als Artikelbezeichnung dienen. Das zweite als Left wert und das dritte als Width wert des erstellten Panels.
nun ich kann so viele Panels wie ich möchte erstellen aber ich kann mit Mousedown auf kein Panel zugreifen und verschieben daher möchte ich die DelphiGurus um Hilfe bitten.
mit inherited;
if ssLeft in Shift then
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0); schaffe ich es alle Panels die ich erstellt habe verschieben zu können jedoch weis ich nicht wie man dann die Größe der momentanen verschiebbaren Panels verändern kann. Ich möchte nämlich das die Panels innerhalb eines images bleiben und nicht verlassen.
egal in welchen mousemove (des panels oder Forms) die differenz von left und image1left dem left des (Panels gehe ich davon aus wenn es nur Left ist im Panemousemove) hinzurechne, ändert sich nichts.
Hier mal mein neuer Code ohne schnickschnack. dennoch möchte ich auf die Panels zugreifen verschieben und die größe verändern können
ihr würdet mich einen Riesen gefallen tun.
unit Unit4;
interface
uses
Winapi.Windows,
Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls,
Vcl.Forms,
Vcl.Dialogs,
Vcl.StdCtrls,
Vcl.ExtCtrls;
type
TKalender = class(TForm)
ArtikelNR: TEdit;
Datumvon: TEdit;
Datumbis: TEdit;
Eingabe: TButton;
Image1: TImage;
Artikelbezeichnung: TLabel;
LabelArtikelbezeichnung: TLabel;
procedure EingabeClick(Sender: TObject);
// procedure EingabeMouseMove(Sender: TObject; Shift: TShiftState; X,
// Y: Integer);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
TPanel = class(
Vcl.ExtCtrls.TPanel)
protected
procedure MouseMove(Shift: TShiftState; X, Y: Integer);
procedure MouseDown(Shift: TShiftState; X, Y: Integer);
end;
var
Kalender: TKalender; XDifferenz, YDifferenz : Integer;
Downpoint : TPoint;
implementation
{$R *.dfm}
procedure TPanel.MouseDown(Shift: TShiftState; X, Y: Integer);
begin
Downpoint.x := X;
Downpoint.Y := Y;
Kalender.LabelArtikelbezeichnung.Caption := Kalender.ArtikelNR.Text;
end;
procedure TPanel.MouseMove(Shift: TShiftState; X, Y: Integer);
begin
inherited;
if X < Downpoint.X then
begin
XDifferenz := Downpoint.X - X;
Left:= XDifferenz + Left;
end;
if left = Kalender.image1.Left then
begin
ShowMessage('a');
end;
end;
procedure TKalender.EingabeClick(Sender: TObject);
var
panel : Tpanel;
begin
Panel := Tpanel.create(self);
Panel.Parent := Kalender;
Panel.top :=10;
Panel.Height := 20;
Panel.Caption := ArtikelNr.Text;
Panel.Left := strtoint(Datumvon.Text);
Panel.width := strtoint(Datumbis.Text);
end;
end.
Grüße.