AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi Probleme mit Delphi Flash Edit und Paste ctrl v
Thema durchsuchen
Ansicht
Themen-Optionen

Probleme mit Delphi Flash Edit und Paste ctrl v

Ein Thema von morbo · begonnen am 22. Apr 2004 · letzter Beitrag vom 22. Apr 2004
Antwort Antwort
Benutzerbild von morbo
morbo

Registriert seit: 27. Jan 2004
60 Beiträge
 
#1

Probleme mit Delphi Flash Edit und Paste ctrl v

  Alt 22. Apr 2004, 15:33
Hi,
ich habe ein Flash Movie in Delphi embedded. Dieser Flash Film enthält Flash Edit Felder.

Wenn ich das Edit Feld von rechts nach links markiere und mit dem Cursor nicht über dem Feld stehenbleibe,
kann ich nicht (Copy Paste) per ctrl v Inhalte in das Feld pasten.

Irgendwelche Ideen?

Gruß
  Mit Zitat antworten Zitat
Benutzerbild von sakura
sakura

Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
 
Delphi 12 Athens
 
#2

Re: Probleme mit Delphi Flash Edit und Paste ctrl v

  Alt 22. Apr 2004, 15:35
Wahrscheinlich das gleiche Problem (und die gleiche Lösung) wie hier: http://www.delphipraxis.net/internal_redirect.php?t=580

......
Daniel Lizbeth
Ich bin nicht zurück, ich tue nur so
  Mit Zitat antworten Zitat
Benutzerbild von morbo
morbo

Registriert seit: 27. Jan 2004
60 Beiträge
 
#3

Re: Probleme mit Delphi Flash Edit und Paste ctrl v

  Alt 22. Apr 2004, 16:28
Zitat von sakura:
Wahrscheinlich das gleiche Problem (und die gleiche Lösung) wie hier: http://www.delphipraxis.net/internal_redirect.php?t=580

......
Hi,
Du hattest Recht. Das Problem scheint das genau das gleiche zu sein. Ich hab das Beispiel mal kurz umgeschrieben und es funktioniert scheinbar tadellos. Vielen Dank.


Hier das Beispiel mit fkt. Copy Paste.


Code:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, ShockwaveFlashObjects_TLB,ActiveX, StdCtrls;

type
  TForm1 = class(TForm)
    ShockwaveFlash1: TShockwaveFlash;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    FOleInPlaceActiveObject: IOleInPlaceActiveObject;
    procedure MsgHandler(var Msg: TMsg; var Handled: Boolean);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage := MsgHandler;
end;

procedure TForm1.MsgHandler(var Msg: TMsg; var Handled: Boolean);
const
// DialogKeys: set of Byte = [VK_LEFT, VK_RIGHT, VK_BACK, VK_UP, VK_DOWN,
//    $30..$39, $41..42, $44..$55, $57, $59..$5A, $43, $56];
 DialogKeys: set of Byte = [$43, $56];
var
  iOIPAO: IOleInPlaceActiveObject;
  Dispatch: IDispatch;

begin

  if (ShockwaveFlash1 = nil) then
  begin
    Handled := System.False;
    Exit;
  end;

  if ((Msg.message = WM_KEYDOWN) or (Msg.message = WM_KEYUP)) then begin
    if (Msg.wParam in DialogKeys) then begin
//      Handled := (IsDialogMessage(ShockwaveFlash1.Handle, Msg) = System.true);
     Handled := System.true;
     if FOleInPlaceActiveObject = nil then begin
        Dispatch := ShockwaveFlash1.DefaultDispatch;
        if Dispatch <> nil then begin
          Dispatch.QueryInterface(IOleInPlaceActiveObject, iOIPAO);
            if iOIPAO <> nil then
              FOleInPlaceActiveObject := iOIPAO;
        end;
      end;
      FOleInPlaceActiveObject.TranslateAccelerator(Msg);
    end;
  end;
end;

initialization
  OleInitialize(nil);

finalization
  OleUninitialize;
end.
  Mit Zitat antworten Zitat
Antwort Antwort


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 23:23 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