que en lblmarquee se pueda copiar un renglon

[ecfisa]

Hola Gaston.

Vas a necesitar una aplicación que envie el string y otra que lo reciba. Una solución es usar el record TCopyDataStruct (unit Windows) para pasar el dato usando el mensaje WM_COPYDATA.

En el ejecutable receptor puse un TPanel que recibe el valor en su propiedad Caption.
(Tál como en el post anterior, reduje código para simplificar)

Ejecutable Emisor:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, SysUtils, Forms, ExtCtrls, Classes, Messages;

type
  TFrmSender = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    procedure SendString(StrToSend: string);
  public
  end;
var
  FrmSender: TFrmSender;

implementation {$R *.dfm}

procedure TFrmSender.SendString(StrToSend: string);
var
  CopyDStruct: TCopyDataStruct;
  ReceptHnd : THandle;
begin
  with CopyDStruct do
  begin
    dwData := 0;
    cbData := 1 + Length(StrToSend);
    lpData := PChar(StrToSend);
  end;
  {¡OJO ACA! En la línea siguiente, las cadenas enviadas a FindWindow,  
   deben ser iguales al nombre del Form Receptor }
  ReceptHnd := FindWindow(PChar('TFrmRecept'),PChar('FrmRecept')) ;
  if ReceptHnd <> 0 then
    SendMessage(ReceptHnd,WM_COPYDATA,Integer(Handle),Integer(@CopyDStruct));
end;

procedure TFrmSender.FormCreate(Sender: TObject);
begin
  Caption:= 'PRUEBA DE DESPLAZAMIENTO DE TEXTO ';
  Timer1.Interval := 1000 div 5;
end;

procedure TFrmSender.Timer1Timer(Sender: TObject);
var
  txt: string;
begin
  txt:= Self.Caption;
  Caption:= Copy(txt, length(txt), 1) + Copy(txt, 1, length(txt) -1);
  SendString(Caption);
end;
end.

Ejecutable Receptor:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TFrmRecept = class(TForm)
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
  private
   procedure WMCopyData(var Msg : TWMCopyData) ; message WM_COPYDATA;
  public
    { Public declarations }
  end;

var
  FrmRecept: TFrmRecept;

implementation {$R *.dfm}

procedure TFrmRecept.WMCopyData(var Msg: TWMCopyData);
begin
  Panel1.Caption:= Pchar(Msg.CopyDataStruct.lpData)
end;

procedure TFrmRecept.FormCreate(Sender: TObject);
begin
  Panel1.Caption:= '';
end;
end.

Luego ejecuta Project1.exe y Project2.exe para ver el resultado.

Por favor utilizá las etiquetas [code] o [delphi], gracias.


Saludos.

[gaston260]

Esta muy interesante como está desarrollado el programa pero lo que estoy buscando es poder copiar con el lblmarquee , mira te voy a explicar mejor lo que tengo y que busco , tengo un lblmarquee y un memo , con el memo le paso todo lo que hay escrito al lblmarquee , este hace desplazar las letras , supongamos que tengo esto en un memo

1 macá tengo un texto <-- 1º renglon o linea

2 acá tengo otro texto <-- 2º renglon o linea

3 y este texto por ultimo <-- 3º renglon o linea

esto que esta en el memo se va a pasar al lblmarquee y lo que estoy necesitando es poder hacer ctrl+c (como en el teclado) por cada linea que esta escrita en el memo y de ahi con soldelsCot supongamos poder hacer que valla diciendo lo que se va copiando ! disculpa si no me ago entender bien pero es mi gran defecto !

saludos !

[ecfisa]

Hola Gastón.

No hay problema, como dijiste 'programa externo' pensé en dos ejecutables.

Mirá yo haría así :
Agregaría una variable privada más (FLinea) que me sirva para indizar la línea actual del memo y
aprovecharía la evaluación de condición anterior para incrementar la misma.

Código Delphi [-]
unit Unit1;

interface

uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Label1: TLabel;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    FCaption: string;
    FLinea: Integer;
  public
  end;

var
  Form1: TForm1;

implementation{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile('C:\PRUEBA.TXT'); // cargar cualquier archivo .txt
  FLinea:= 0;
  FCaption:= Memo1.Lines[FLinea];
  Caption:= FCaption;
  Timer1.Interval := 1000 div 5;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  txt: string;
begin
  txt:= Caption;
  Caption:= Copy(txt, Length(txt), 1) + Copy(txt, 1, Length(txt) -1);
  if FCaption = Caption then
  begin
    Inc(FLinea);
    Caption:= Memo1.Lines[FLinea];
    FCaption:= Caption;
  end;
end;

En cuanto la decteccíon de Ctrl+C para copiar y otra convinación para pegar lo podés capturar en el evento OnKeyDown del Memo o el Form. ( lamento andar con poco tiempo ahora para implementartelo, pero si luego hago un rato intento..)

Espero haberte entendido.

Saludos.

[gaston260]

Genio !! lo voy a probar !!

[ecfisa]

Hola de nuevo Gaston.

Primero disculpas, mirá como escribí la palabra combinación !!! (convinacion)... debo tener calambre cerebral...

Ahora a lo que hablamos. Para copiar y pegar el texto podés poner KeyPreview := True , en FormCreate y el siguiente código en el evento OnKeyDown del Form.

Código Delphi [-]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if ssCtrl in Shift then
     case Chr(Key) of
       'C','c': // Copias el texto
       'V','v': // Pegas el texto
     end;
end;

Saludos.

[gaston260]

hola ecfisa soy muy malo para esto ! te dejo mi pequeño proyecto yo creo que no estoy al nivel como para hacer eso que me dijiste , si podes ver mi codigo y darme algun ejemplo te lo agradezco !
http://rapidshare.com/files/416142919/project1.zip

[gaston260]

jaja esto es para hacer propaganda con alguna pentium que consiga y algun monitor viejito ya que hacer esto con led's y pic's no es muy rentable y no se pueden escribir muchas letras ! (salvo algunos comerciales) !

creo que ami tambien me esta agarrando calambre cerebral !

[[Caral]]

Hola
Por algun lado tengo un componente que simula un led.
Es como lo que quieres hacer solo que se ve como si fueran leds.
Si lo encuentro lo pondre aqui.
Saludos

[[Caral]]

Hola
Interesante concepto amigo.
Pregunto: Para que sirve

Código Delphi [-]
var
  Form1: TForm1;
  FCaption: string;
  FLinea: Integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   Memo1.Lines.LoadFromFile('C:\Prueba.TXT'); // cargar cualquier archivo .txt
   FCaption:= Memo1.Lines[FLinea];
   Caption:= FCaption;
   Timer1.Interval := 1000;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Caption:= Copy(Caption, Length(Caption), 1) + Copy(Caption, 1, Length(Caption) -1);
  if FCaption = Caption then
  begin
  Inc(FLinea);
  Caption:= Memo1.Lines[FLinea];
  FCaption:= Caption;
  end;
end;

Por cierto me sobran variables.....
Saludos

[ecfisa]

Empezado por Caral

Hola
Interesante concepto amigo.
Pregunto: Para que sirve
[Por cierto me sobran variables.....
Saludos

A la primera pregunta te tengo que dar una respuesta cargada de matices filosóficos: No lo sé...

Y en cuanto a la observación: Tenés razón. Con el apuro trabajé sobre el código anterior, txt es innecesaria...

Un abrazo.

[[Caral]]

Hola
Es interesante y curioso el efecto de lectura que hace y la representación en el caption.
Estos códigos son buenos para aprender a hacer cosas nuevas, nunca se deja de aprender de los maestros como tu, a mi ni se me pasa por la cabeza hacer estas cosas.
Modificar lo hecho es sencillo, pensarlo y hacerlo es diferente.
Saludos

[ecfisa]

Empezado por Caral

Hola
Es interesante y curioso el efecto de lectura que hace y la representación en el caption.
Estos códigos son buenos para aprender a hacer cosas nuevas, nunca se deja de aprender de los maestros como tu, a mi ni se me pasa por la cabeza hacer estas cosas.
Modificar lo hecho es sencillo, pensarlo y hacerlo es diferente.
Saludos

Mi estimado amigo, lo de 'No lo sé' fué sólo una broma. Por supuesto que sé lo que hace, jamás pongo código a un compañero sin probarlo primero... Te aseguro que lo revisé a conciencia, hasta señalé aquí , un error que de orígen traía el mismo.

Y como ya te he comentado en anteriores oportunidades, el que no deja de aprender leyendote soy yo...

Saludos.