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.)
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.
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.
(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.