Simple: TPanel heredado que cambia de color con click.

[kwanbis]

hola dec, como estas? la verdad que supongo que es bastante facil el tema, de hecho tengo este codigo:

TPanelHost = class(TPanel)
private
public
end;

pero no se como se hace el resto, por eso lo pregunto.

Si hago asi:

TPanelHost = class(TPanel)
private
public
procedure Clicked;
end;

no se como lo resuelvo despues.

pense en algo tipo

Procedure TPanelHost.Clicked;
begin
TPanelHost.Color := random
end;

Pero no estoy seguro, por que despues tendria que llamar al "onclick" event, y asociarlo con el evento TPanelHost.Click, y lo que yo quiero es, si posible, que quede ya implicito en el codigo.

No estoy pidiendo que me hagan un programa, por eso supuse que asi estaria bien.

[paldave]

Acá va el código, porque a veces un ejemplo sirve para entender como se hace y no tener que pedir que otros te escriban el código, y sin que sirva de precedente

Código Delphi [-]
unit HostPanel;

interface

uses
  SysUtils, Classes, Controls, ExtCtrls,Graphics;

type
  THostPanel = class(TPanel)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    procedure Click;override;
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [THostPanel]);
end;

procedure THostPanel.Click;
begin
  inherited Click;
  self.Color:=Random($7FFFFFFF);
  Repaint;
end;

end.

[kwanbis]

Gracias paldave.

Ahora, y me parece que a lo mejor mi duda viene de alguna confusion de no usar delphi hace muchos años, yo tengo que entonces definir el evento OnClick y apuntarlo a Click? O asi solo al clickear me cambiaria el color?

[paldave]

Así ya funciona.
También podrías campturar el evento OnClick así:

Código Delphi [-]
unit HostPanel;

interface

uses
  SysUtils, Classes, Controls, ExtCtrls,Graphics;

type
  THostPanel = class(TPanel)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    procedure EventoClick(Sender:TObject);
    constructor Create(AOwner:TComponent);override;
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [THostPanel]);
end;

constructor THostPanel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  self.OnClick := EventoClick;
end;

procedure THostPanel.EventoClick(Sender: TObject);
begin
  self.Color:=Random($7FFFFFFF);
  Repaint;
end;

end.

pero me parece más complicado.

[kwanbis]

Empezado por paldave

Así ya funciona.
También podrías campturar el evento OnClick así ... pero me parece más complicado.

excelente, gracias. En realidad yo hacia algo similar al segundo ejemplo, pero si, el primero es mucho mas simple. Gracias

[Neftali [Germán.Estévez]]

Código Delphi [-]
constructor THostPanel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  self.OnClick := EventoClick;
end;

Si me lo permitís, en este caso yo guardaría un apuntador al evento original;
Porque si desde el IDE programan ese evento, perderás el apuntador a tu código.

[[maeyanes]]

Hola...

Ya hiciste la prueba?

No hay nada mejor que probar el código para que entiendas que es lo que hace y como funciona...


Saludos...