5 respuestas en este tema

[martinartaza]

Hola que tal querida comunidad.
Resulta que estoy probando un tema que siempre dejo pendiente en mi aprendizaje de Delphi/Lazarus, el cual es poder crear un programa cad, en este momento estoy probando como crear un diseñador de esquema de Arbol y estoy empezando.

Por el momento hice lo siguiente:


Lo que deseo hacer es asignar evento onmousedown, onmouseup, onmousemove a los botones que voy creando en tiempo de ejecución. Los eventos que deseo asignarle son de un ejemplo sacado de delphiallimite http://delphiallimit...informes-i.html

El código de programa es el siguiente:

delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ToolWin, ComCtrls, ImgList;
 
type
  TMovible = class( TControl );
  TForm1 = class(TForm)
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    BNodo: TButton;
    MainMenu1: TMainMenu;
    Archivos1: TMenuItem;
    Nuevo1: TMenuItem;
    Abrir1: TMenuItem;
    Guardar1: TMenuItem;
    Cerrar1: TMenuItem;
    N1: TMenuItem;
    Salir1: TMenuItem;
    Ver1: TMenuItem;
    Edicion1: TMenuItem;
    NHoja: TButton;
    BUnir: TButton;
    procedure ControlMouseDown( Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer );
    procedure ControlMouseMove( Sender: TObject; Shift: TShiftState; X, Y: Integer );
    procedure ControlMouseUp( Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer );
 
    procedure BNodoClick(Sender: TObject);
    procedure NHojaClick(Sender: TObject);
    procedure BUnirClick(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    BanNodo, BanHoja, BanUnir: Boolean;
    UltimoID: integer;
 
    iComponenteX, iComponenteY: Integer; // para moverlo
    bMoviendo: Boolean; // para moverlo
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.BNodoClick(Sender: TObject);
begin
   BanNodo:= True;
   BanHoja:= False;
   BanUnir:= False;
end;
 
procedure TForm1.NHojaClick(Sender: TObject);
begin
   BanNodo:= False;
   BanHoja:= True;
   BanUnir:= False;
end;
 
procedure TForm1.BUnirClick(Sender: TObject);
begin
   BanNodo:= False;
   BanHoja:= False;
   BanUnir:= True;
end;
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if BanNodo then
   begin
   with TButton.Create(self) do
   begin
     Parent := self;
     Left := X;
     Top := Y;
     Inc(UltimoID);
     Tag := UltimoID;
     Caption := 'Nodo' + IntToStr(UltimoID);
     Name := 'BNodo' + IntToStr(UltimoID);
     BanNodo:= False;
     //OnMouseDown:= ControlMouseDown();
     //OnMouseMove:= ControlMouseMove();
     //OnMouseUp:= ControlMouseUp();
    end;
   end;
 
if BanHoja then
   begin
   with TButton.Create(self) do
   begin
     Parent := self;
     Left := X;
     Top := Y;
     Inc(UltimoID);
     Tag := UltimoID;
     Caption := 'Hoja' + IntToStr(UltimoID);
     Name := 'BHoja' + IntToStr(UltimoID);
     BanHoja:= False;
     //OnMouseDown:= ControlMouseDown();
     //OnMouseMove:= ControlMouseMove();
     //OnMouseUp:= ControlMouseUp();
    end;
   end;
 
 
 
end;
 
 
procedure TForm1.ControlMouseDown( Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer );
begin
  iComponenteX := X;
  iComponenteY := Y;
  bMoviendo := True;
  TMovible( Sender ).MouseCapture := True;
end;
 
procedure TForm1.ControlMouseMove( Sender: TObject; Shift: TShiftState; X, Y: Integer );
begin
  if bMoviendo then
    with Sender as TControl do
    begin
      Left := X - iComponenteX + Left;
      Top  := Y - iComponenteY + Top;
    end;
end;
 
procedure TForm1.ControlMouseUp( Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer );
begin
  if bMoviendo then
  begin
    bMoviendo := False;
    TMovible( Sender ).MouseCapture := False;
  end;
end;

Bueno, eso no puedo encontrar la forma que los botones que voy creando en tiempo de ejecución, tenga los eventos ControlMouseMove ControlMouseUP y ControlMouseDown.

Si puediera hacer eso, los botones se podrian mover por pantalla.

Desde ya muchas gracias.
Busque en el foro, y por ahí los temas son demasiados viejos y hablan sin poner código quería reiniciar la discusión más enfocado a lo que yo necesito.

PD: Si alguien conoce algún tutorial con un programa para diseñar grafo o algo por el estilo, seria bienvenido, en estos momentos no tengo que hacer nada con esto, no es para la facu, ni para un trabajo ni nada por el estilo, pero pasa que si puedo hacer este tipo de cosas, podre presentar mejores soluciones a mis clientes, por ejemplo un programa de bar donde se puedan mover las mesas o cosas por el estilo.

[Héctor Randolph]

Bueno, aunque no aclaras muy bien qué problema se te presenta, voy a suponer que estamos hablando de Lazarus.

En tal caso, para asignar un evento por código se hace de la siguiente manera.

delphi

  OnMouseDown:= @ControlMouseDown();
  OnMouseMove:= @ControlMouseMove();
  OnMouseUp:= @ControlMouseUp();

Para crear un diseñador, te puedo recomendar que revises estos componentes para Delphi

http://www.delphiare...ts/simplegraph/

Te pueden servir como base para tener un área de diseño y objetos que puedes manipular.

Saludos

[Wilson]

Para asignar eventos a controles creados en tiempo de ejecución (en Delphi), la  condición es crear previamente el procedimiento con exactamente los mismos parámetros que se crearían en tiempo de diseño, y luego asignarlos después después de crearlos.

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  miBoton: TButton;
begin
  miBoton := TButton.Create(self);
  miBoton.Parent := Form1;
  MiBoton.Top := 0;
  MiBoton.Left:= 0;
  miBoton.OnMouseDown := ControlMouseDown ;
end;

[martinartaza]

Muchas gracias wilson, yo ponia
    OnMouseDown:= ControlMouseDown() y no me andaba.
Por otro lado, voy a tener en cuenta tu código Héctor Randolph, cuando llegue a casa y lo implemente en lazarus.

Me acabo de dar cuentas que las imagenes que subo en mi site de gmail no la ven todos, así que vuelvo a subir la imagen de lo que estoy haciendo.
[img]http://http://www.alertaenelcamino.org.ar/cursos/Mover.JPG[/img]
Ahora los botones que voy creando en tiempo de ejecución se mueven.

En este momento me voy a poner a ver como hago para unirlo atraves de una linea, no se bien como plantearlo pero voy a investigar al respecto y luego voy a poner mis inquietudes.

PD:  Héctor Randolph, ese componente vos lo usaste, porque yo en delphi 6.0 no logro hacerlo.

[Héctor Randolph]

Si he usado los componentes TSimpleGraph, los instalé en Delphi 7 sin problemas.
 
  Si no puedes instalarlos, también puedes probar con las JEDI, existen componentes dentro de la paleta "jvRuntimeDesign".
 
  Tienes un inspector de objetos y área de diseño. Puedes registrar las  clases que deseas manipular cambiando su posición y tamaño.  Estos  componentes fueron hechos para Delphi y pienso que sería un poco más  complicado llevarlo a Lazarus.

Archivos adjuntos

•  2868_8a847bb408a9d80c9e33ead55f4acd0659ebc852.jpg   18,53KB   9 descargas

[martinartaza]

Gracias Randolph, parecen muy prometedor, pero como no si lograre hacerlo andar en lazarus, hasta que no encuentre otra solución tratare de seguir dándome mania. Ahora posteo en otro tema como hacer para unir 2 botones con una linea.