Announcement

Collapse
No announcement yet.

Drag&Drop wie bei Win32 im Iexplorer?

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Drag&Drop wie bei Win32 im Iexplorer?

    Habe ein kleines Delphi Programm erstellt. In Aussehen und Funtion möchte dieses (am besten geanu dieses Programm) im Browser zum laufen bringen. Das ganze soll bei bekannten Provider/Server liegen, und in allen Browsern lauffähig sein.

    Erklärung zum Prog.

    (Ein TImage kann per Drag&Drop von einer TForm auf ein TPanel oder anderes TPanel oder einem TShape abgelegt werden. Wird es dort abgelegt wird im TMemo der entspr. Parent.Name ausgegeben.)

    Code:
    unit Unit5;
    interface
    uses
    // Windows, Messages, 
    // - aus kommentiert weil Warning --> "Unit '%s' ist
    //    pattformspezifisch (W1005)"
    SysUtils, Variants, Classes, Graphics
    , Controls, Forms,
    Borland.Vcl.ExtCtrls
    , System.ComponentModel
    , Borland.Vcl.StdCtrls;
    type
    TForm5 = class(TForm)
    Memo1: TMemo;
    Panel1: TPanel;
    Panel2: TPanel;
    Image1: TImage;
    Shape1: TShape;
    procedure Panel1DragDrop(Sender, Source: TObject; X, Y: Integer);
    public
    constructor Create(AOwner: TComponent); override;	procedure ControlDragOver(Sender, Source: TObject; X, Y: Integer;
    State: TDragState; var Accept: Boolean);
    end;
    
    var
    Form5: TForm5;
    
    implementation
    {$R *.nfm}
    
    procedure TForm5.ControlDragOver(Sender, Source: TObject; X, Y: Integer;
    State: TDragState; var Accept: Boolean);
    begin
    //
    end;
    
    constructor TForm5.Create(AOwner: TComponent);
    begin
    inherited;
    //
    Image1.DragMode := dmAutomatic;
    //
    Panel1.OnDragOver := ControlDragOver;
    Panel2.OnDragOver := ControlDragOver;
    Shape1.OnDragOver := ControlDragOver;
    //
    Panel1.OnDragDrop := Panel1DragDrop;
    Panel2.OnDragDrop := Panel1DragDrop;
    Shape1.OnDragDrop := Panel1DragDrop;
    end;
    
    procedure TForm5.Panel1DragDrop(Sender, Source: TObject; X, Y: Integer);
    begin  
    with TImage(Source) do begin 
    if sender is TPanel  then 
    begin
    Parent := TPanel(Sender);
    Memo1.Text := 'ich auf Panel '+ TPanel(sender).Name;
    SetBounds(x,y,Width,Height);
    end;
    if sender is TShape  then 
    begin
    Parent := TShape(Sender).Parent;
    Memo1.Text := 'ich auf dem Parent vom Shap1; '+ TShape(sender).Name;
    SetBounds(1,1,Width,Height);
    end;
    end;
    end;
    end.
    Kann ich das mit .net machen; benötige ich hierzu Delphi for PHP 2.0,
    (mit VCL for Web geht es nicht weil hier nur MS-Browser möglich, habe ich mir sagen lassen)

    P.S. diese Frage habe ich auch schon ähnlich formuliert in Delphi.Grafik eingestellt, doch ich glaube sie passt besser hin.
Working...
X