Detectado javascript desactivado

Tienes el javascript desactivado en este momento. Muchas funciones podrían no funcionar. Por favor reactiva el javascript para obtener una funcionalidad completa.

Como cambiarle el color a un programita en ejecucion.

Comenzado por Guest_Jose Fco_* , nov 29 2008 04:29

Por favor identifícate para responder

2 respuestas en este tema

#1 Guest_Jose Fco_*

Visitante

Escrito 29 noviembre 2008 - 04:29

Esto es para novatos y nos ayuda a poder cambiar el color a un Form en ejecucion.
Imagen Enviada

Codigo:

delphi

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ColorDialog1: TColorDialog;
    BitBtn3: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ColorDialog1.Color:=Panel1.Color;
if ColorDialog1.Execute then Panel1.Color:=ColorDialog1.Color;
end;
 
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Close;
end;
 
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
ColorDialog1.Color:=Form1.Color;
if ColorDialog1.Execute then Form1.Color:=ColorDialog1.Color;
end;
 
end.

Esto es para novatos y no me refiero a Caral "El ya tiene certificado" y es un gran Maestro.

Un Saludo.

Volver arriba

#2 Caral

Advanced Member

Moderador
4.266 mensajes

LocationCosta Rica

Escrito 29 noviembre 2008 - 07:04

Hola
Con tu permiso amigo Jose que tal si le ponemos un efecto al color?.
Para hacer un juego o algo asi estaria bien.
Primero ponemos un TrackBar1 y un timer.
Si queremos podemos poner al TrackBar1 en su propiedad visible = False (si no, lo veremos como cambia).
El timer lo dejamos enable = true (como viene por defecto).
Ahora ponemos este codigo en el envento del Timer:

delphi

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Panel1.Color:= Clwhite;
   Panel1.Color:= Panel1.Color + TrackBar1.Position;
   Form1.Color:= Panel1.Color + 1 + TrackBar1.Position;
   TrackBar1.Position :=  TrackBar1.Position + 1;
   if TrackBar1.Position = 10 then
   TrackBar1.Position:= 0;
end;