AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
• Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Drag_Drop-Beispiel

Ein Thema von Spargeltarzan · begonnen am 22. Aug 2009 · letzter Beitrag vom 22. Aug 2009
Antwort Antwort
Spargeltarzan
(Gast)

n/a Beiträge
 
#1

Drag_Drop-Beispiel

  Alt 22. Aug 2009, 03:04
Hallo zusammen

Kann mir jemand weiterhelfen, wie ich beigefügtes Beispiel (angefügte Datei) lösen kann ? Ich bin totaler Anfänger was Drag n Drop - Programmierung betrifft. Vielleicht hat jemand schon an einem ähnlichen Beispiel gearbeitet.
Für Eure Mithilfe danke ich Euch im voraus

Gruss

Spargeltarzan
Angehängte Grafiken
Dateityp: bmp dragdrop_871.bmp (1,06 MB, 11x aufgerufen)
  Mit Zitat antworten Zitat
Spargeltarzan
(Gast)

n/a Beiträge
 
#2

Re: Drag_Drop-Beispiel

  Alt 22. Aug 2009, 04:07
Hallo zusammen

Ich hab mit einem ersten Einstieg begonnen, vielleicht können wir diesen Einstieg als Basis-Diskussion nehmen und daran weiterentwickeln:

Meine Programm zum Verschieben von VCL's: (Sreenshot des Formulars beigefügt)

unit MoveQuiz02;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, Shellapi, DsgnBtns, mdMsgCmp, mdDrop, TxtRel;

type
TMain = class(TForm)
Label1: TLabel;
Panel1: TPanel;
Label2: TLabel;
Panel2: TPanel;
Panel3: TPanel;
TextRelief1: TTextRelief;
TextRelief2: TTextRelief;
TextRelief3: TTextRelief;
TextRelief4: TTextRelief;
TextRelief5: TTextRelief;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormCreate(Sender: TObject);
procedure Label1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private-Deklarationen }
OLDX:Integer;
OLDY:Integer;
MOVE:BOOLEAN;
public
{ Public-Deklarationen }
end;

var
Main: TMain;

implementation

{$R *.DFM}

procedure TMain.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Panel1.Perform(WM_LBUTTONUP,0,0);
Panel1.Perform(WM_SysCommand,SC_MOVE+2,2);
end;

procedure TMain.Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
If Button = MBLEFT then
begin

OLDX:=X;
OLDY:=Y;
MOVE:=TRUE;
end;
end;

procedure TMain.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Var R:TRect;
begin
TControl(Sender).Cursor:=crdrag;
if MOVE then
begin
//R:=TControl(sender).Boundsrect;
//offsetrect(R,(X-OLDX),(Y-OLDY));
//TControl(sender).SetBounds(R.Left,R.Top,R.Right-R.Left,R.bottom-R.Top);
//TControl(sender).SetBounds(TControl(sender).Left+X-OLDX,TControl(sender).Top+Y-OLDY,
// TControl(sender).width,TControl(sender).height);
TControl(sender).Left:=TControl(sender).Left+X-OLDX;
TControl(sender).Top:=TControl(sender).Top+Y-OLDY;
end;
end;

procedure TMain.FormCreate(Sender: TObject);
begin
MOVE:=FALSE;
Panel2.OnMouseDown:=Label1MouseDown;
Panel2.OnMouseMove:=Label1MouseMove;
Panel2.OnMouseUp:=Label1MouseUp;
end;

procedure TMain.Label1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
MOVE:=FALSE;
TControl(Sender).Cursor:=crdefault;
end;


end.
Angehängte Grafiken
Dateityp: bmp movequiz_554.bmp (844,7 KB, 6x aufgerufen)
  Mit Zitat antworten Zitat
Benutzerbild von Mackhack
Mackhack

Registriert seit: 29. Nov 2003
Ort: San Diego, CA/USA
1.446 Beiträge
 
Delphi 2006 Architect
 
#3

Re: Drag_Drop-Beispiel

  Alt 22. Aug 2009, 04:18
Koenntest du bitte den Delphi-Code button benutzen damit dein Code sauber formatiert angezeigt wird?

Und wenns geht speichere deine Screenshots als PNG files ab dann sind die Ladezeiten fuer unsere Modemgaenger nicht so lange. Ueber 1MB is doch ziemlich heftig fuer n einfachen Screenshot.

Danke!
Um etwas Neues zu schaffen muss man seine Ohren vor den Nein-sagern verschliessen um seinen Geist öffnen zu können.
(George Lukas)
  Mit Zitat antworten Zitat
Spargeltarzan
(Gast)

n/a Beiträge
 
#4

Re: Drag_Drop-Beispiel

  Alt 22. Aug 2009, 04:29
Hallo

OK, ich werde die Screenshots in Zukunft komprimieren oder in einem anderen Format absenden.

Ist das so gemeint mit Formattierter Delphi-Code?

[unit MoveQuiz02;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, Shellapi, DsgnBtns, mdMsgCmp, mdDrop, TxtRel;

type
TMain = class(TForm)
Label1: TLabel;
Panel1: TPanel;
Label2: TLabel;
Panel2: TPanel;
Panel3: TPanel;
TextRelief1: TTextRelief;
TextRelief2: TTextRelief;
TextRelief3: TTextRelief;
TextRelief4: TTextRelief;
TextRelief5: TTextRelief;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormCreate(Sender: TObject);
procedure Label1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private-Deklarationen }
OLDX:Integer;
OLDY:Integer;
MOVE:BOOLEAN;
public
{ Public-Deklarationen }
end;

var
Main: TMain;

implementation

{$R *.DFM}

procedure TMain.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Panel1.Perform(WM_LBUTTONUP,0,0);
Panel1.Perform(WM_SysCommand,SC_MOVE+2,2);
end;

procedure TMain.Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
If Button = MBLEFT then
begin

OLDX:=X;
OLDY:=Y;
MOVE:=TRUE;
end;
end;

procedure TMain.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Var R:TRect;
begin
TControl(Sender).Cursor:=crdrag;
if MOVE then
begin
//R:=TControl(sender).Boundsrect;
//offsetrect(R,(X-OLDX),(Y-OLDY));
//TControl(sender).SetBounds(R.Left,R.Top,R.Right-R.Left,R.bottom-R.Top);
//TControl(sender).SetBounds(TControl(sender).Left+X-OLDX,TControl(sender).Top+Y-OLDY,
// TControl(sender).width,TControl(sender).height);
TControl(sender).Left:=TControl(sender).Left+X-OLDX;
TControl(sender).Top:=TControl(sender).Top+Y-OLDY;
end;
end;

procedure TMain.FormCreate(Sender: TObject);
begin
MOVE:=FALSE;
Panel2.OnMouseDown:=Label1MouseDown;
Panel2.OnMouseMove:=Label1MouseMove;
Panel2.OnMouseUp:=Label1MouseUp;
end;

procedure TMain.Label1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
MOVE:=FALSE;
TControl(Sender).Cursor:=crdefault;
end;


end. ]

Gruss
Spargeltarzan
  Mit Zitat antworten Zitat
Benutzerbild von Mackhack
Mackhack

Registriert seit: 29. Nov 2003
Ort: San Diego, CA/USA
1.446 Beiträge
 
Delphi 2006 Architect
 
#5

Re: Drag_Drop-Beispiel

  Alt 22. Aug 2009, 04:38
Nein eher so! Dabei den Button druecken, Code einfuegen und nochmals den Button druecken um den Tag zu schliessen.

Code hier rein Siehe Screenshot. Du brauchst die Bilder auch nicht komprimieren, einfach in Paint oder wo du das machst das Bild as jpg oder PNG speichern. Somit braucht man erst gar nichts wieder dekomprimieren und sieht das Bild sofort.

Versuche als einfach mal mit Hilfe des Edit Buttons in deinen Post zu gehen und ein [ delphi ] und [ /delphi ] um deinen Code zu packen. Ohne die Leerstellen zwischen delphi und den Klammern.
Miniaturansicht angehängter Grafiken
code_tag_446.png  
Um etwas Neues zu schaffen muss man seine Ohren vor den Nein-sagern verschliessen um seinen Geist öffnen zu können.
(George Lukas)
  Mit Zitat antworten Zitat
Spargeltarzan
(Gast)

n/a Beiträge
 
#6

Re: Drag_Drop-Beispiel

  Alt 22. Aug 2009, 04:56
An Mackhack

Danke für die Einführung in formattierter Quellcode. Hab's jetzt kappiert (Schreiner sind manchmal nicht so schnell).

Gruss
Spargeltarzan
  Mit Zitat antworten Zitat
Benutzerbild von Mackhack
Mackhack

Registriert seit: 29. Nov 2003
Ort: San Diego, CA/USA
1.446 Beiträge
 
Delphi 2006 Architect
 
#7

Re: Drag_Drop-Beispiel

  Alt 22. Aug 2009, 05:00
Zitat von Spargeltarzan:
An Mackhack

Danke für die Einführung in formattierter Quellcode. Hab's jetzt kappiert (Schreiner sind manchmal nicht so schnell).

Gruss
Spargeltarzan
Dafuer machen sie unglaublich geile Kuechen wenn sie Ahnung davon haben.
Um etwas Neues zu schaffen muss man seine Ohren vor den Nein-sagern verschliessen um seinen Geist öffnen zu können.
(George Lukas)
  Mit Zitat antworten Zitat
Antwort Antwort

« Vorheriges Thema | Nächstes Thema »

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.
BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus
Gehe zu:

• Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:48 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz