image knap

Man skifter image på knappen efter føste tryk,
du kan måske også lægge flere images på række i en bmp, og så sætte den prop. der fotæller hvor mange img. der er, ligesom med endable/disable på knapper.

hmmm..hvordan gør man det?

procedure TForm1.Image2Click(Sender: TObject);
begin
Image2.Visible := False;
Image1.Visible := True;
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
Image2.Visible := True;
Image1.Visible := False;;
end;

jeg har nok formuleret mig forkert:

jeg har et image 0 som knap,når der blir trykket på knappen vises image 1, og anden gang der blir trykket på knappen blir image2 vist.
det er ikke image 1 og 2 der blir trykket på.
\"ellers var det let nok.\"
noget lignende som hold på en \"enarmet tyveknægt\"
ved 1 tryk på hold vises image1 ovenfor som rød,
ved tryk på hold anden gang vises image2 som grøn.
\"En tænd sluk funktion\"

procedure TForm1.button1Click(Sender: TObject); begin
if billed = 1 then
begin
  Image2.Visible := False;
  Image1.Visible := True;
  billed := 2;
end
else
begin
  Image2.Visible := True;
  Image1.Visible := False;
  billed := 1;
end
end;

/ZIRON

hov prøver lige igen :-)

procedure TForm1.button1Click(Sender: TObject);
var
  billed : integer;
begin
if billed = 1 then
begin
  Image2.Visible := False;
  Image1.Visible := True;
  billed := 2;
end
else
begin
  Image2.Visible := True;
  Image1.Visible := False;
  billed := 1;
end
end;

og så lige på formcreate sætter du dette ind:

billed := 1;

/ZIRON

hov prøver lige endnu engang :-)

procedure TForm1.button1Click(Sender: TObject);
begin
if billed = 1 then
begin
  Image2.Visible := False;
  Image1.Visible := True;
  billed := 2;
end
else
begin
  Image2.Visible := True;
  Image1.Visible := False;
  billed := 1;
end
end;

og så lige på formcreate sætter du dette ind:

billed := 1;

og så skal du have dette ind under Public declarations:

billed : integer;

/ZIRON

Først skal vi have en lille melodig ... Dum di di dum di dum di di di dum (Jens nynner temaer fra Tv-køkkenet)

Man tage en form, en BitBtn med et onClick event samt sidst men ikke mindst en ImageList. Man stopper nu sine to billeder, Iconer or what ever ind i din ImageList. På DesingTime.

Så skrives det følgende kode på knappen klik event :

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  Bitmap : TBitmap;
begin
  Bitmap := TBitmap.Create;
  ImageList1.GetBitmap(BitBtn1.Tag, Bitmap);
  BitBtn1.Glyph.Assign(Bitmap);
  Bitmap.Free;
  BitBtn1.Tag := (BitBtn1.Tag + 1) mod 2;
end;


Tilsæt salt og pebber, og til sæt timian med genorøs hånd :-) Lad retten små simmere i ca. 20 minutter .... Så er den klar.

Jens B http://fotx.net/borrisholt

flot borrisholt og ingen hest i dag på menuen.:-)procedure TForm1.Image1Click(Sender: TObject);
var
  Bitmap : TBitmap;
begin
  Bitmap := TBitmap.Create;
  ImageList1.GetBitmap(image2.Tag, Bitmap);
  image2.Picture.Assign(Bitmap);
  Bitmap.Free;
  image2.Tag := (image2.Tag + 1) mod 2;
end;
fik det til at virke på den måde.

ja ja det er vel bare farven her har en anden lyd ?

Jens B

orv ups stone ,.. Det er da godt du er vågen, fordi jeg troede det var på en knap .....

Næste gang læser jeg spørgsmålet FØR jeg svarer på det ....

Jens B

Takker *S*