Seguro que lo estare4 haciendo!! habrá alguien que me heche una mano les envió una imagen ya que no se como se envia lo que tengo hecho en delphi si alguien me lo enseña se le agradecerá.
Este es el código, me da fallos en el else y en el segun if
unit ejercico_clases1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Panel1: TPanel; Panel2: TPanel; Panel3: TPanel; Panel4: TPanel; Panel5: TPanel; Panel6: TPanel; Panel7: TPanel; Sbarra: TScrollBar; procedure SbarraChange(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.SbarraChange(Sender: TObject); var N:Integer; begin N:= sbarra.position; if (N<1) or (N>1) then begin panel1.Color:=clred end else panel1.color:=clface end if (N<5)or (N>6) then begin panel2.color:=clred end else end
Jackson Mora