Bring til front

kig på funktionen BringWindowToTop

/ZIRON

Jo, du kan skrive et hvilket som helst visuelt komponentnavn + .BringToFront;

Altså lad os sige du har Memo1 til at ligge bagerst.

i onClick på knappen skriver du så

begin
  Memo1.BringToFront;
end;

/SpEeDy

hvad skriver jeg så hvis den skal bruges til flere ting. Jeg skal nemlig bruge det til at når man klikker på næste skal der kommer et nyt billed frem i en boks. og jeg ved sq ik lige hvordan jeg skal gøre det.
Håber i kan hjælpe mig

hvilket billed og er det på en ny form??

/ZIRON

nej det er bare nogle image som man skal kunne skifte frem og tilbage i imellem ved hjælp af en frem og en tilbage knap

så laver du bare en ny loadfromfile på dit billed.

/ZIRON

hvordan gør man det. jeg er ret newbie skal du tænke på :)

Image1.Picture.LoadFromFile(\'ditbillede.bmp\');

/SpEeDy

2 sek skriver lige noget til dig...

/ZIRON

det skal gerne kunne bruges til mellem 6-8 billeder, det synes jeg ikke speedy\'s svar kan. Jeg ved ik om det bare er mig.

2 sek så er den der...

/ZIRON

kig her og så kan du selv filføje og sådan, meget let:

www.ziron.dk/eksperten/billedeting/billedeting.zip

og en compilet exe-fil

www.ziron.dk/eksperten/billedeting/test.exe

/ZIRON

Error creating form: Invalid stream format.
Skriver den når jeg prøver at åbne det i delphi

hmmm hvad for noget, hvilken delphi kører du med?

/ZIRON

kun delphi 3.
men jeg tror jeg har klaret den. Jeg arbejder lige lidt på det.

når men sådan her ser koden ud og så smider du bare to knapper og en Timage komponet, og så dobblet clikker du på formen og på de to knapper og sætter dette kode ind i stedet for det du har:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, JPEG;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    billedenr : Integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const
nr1 = \'c:\\billede1.jpg\';
nr2 = \'c:\\billede2.jpg\';
nr3 = \'c:\\billede3.jpg\';
nr4 = \'c:\\billede4.jpg\';
nr5 = \'c:\\billede5.jpg\';

procedure TForm1.FormCreate(Sender: TObject);
begin
billedenr := 1;
Case billedenr of
  1 : Image1.Picture.LoadFromFile(nr1);
  2 : Image1.Picture.LoadFromFile(nr2);
  3 : Image1.Picture.LoadFromFile(nr3);
  4 : Image1.Picture.LoadFromFile(nr4);
  5 : Image1.Picture.LoadFromFile(nr5);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
billedenr := billedenr + 1;
Case billedenr of
  1 : Image1.Picture.LoadFromFile(nr1);
  2 : Image1.Picture.LoadFromFile(nr2);
  3 : Image1.Picture.LoadFromFile(nr3);
  4 : Image1.Picture.LoadFromFile(nr4);
  5 : Image1.Picture.LoadFromFile(nr5);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
billedenr := billedenr - 1;
Case billedenr of
  1 : Image1.Picture.LoadFromFile(nr1);
  2 : Image1.Picture.LoadFromFile(nr2);
  3 : Image1.Picture.LoadFromFile(nr3);
  4 : Image1.Picture.LoadFromFile(nr4);
  5 : Image1.Picture.LoadFromFile(nr5);
end;
end;

end.

/ZIRON

den melder fejl der hvor der står billedenr := 1; hvad skal der stå der i stedet. Jeg bruger bare bmp billeder og de hedder 1.bmp og 2.bmp og 3.bmp....

billedenr er en variable som bliver brugt af hele uniten, så derfor skal den tilføjes her:

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    billedenr : Integer;  <----- HER
  end;

det er nok derfor den melder fejl...

/ZIRON

Så for fanden nu har jeg den jeg sir tusind tak for ulejligheden

men har lige et spørgsmål mere nu skal billederne ligge i c:\\ men hvad skriver jeg hvis den bare skal finde dem i roden af den mappe hvor programmet ligger.

sådan her:

Image1.Picture.LoadFromFile(Application.ExeName + \'\\billede1.jpg\')

og når du skal gører det kan du ikke bruge const tingen så det bliver nød til at se sådan her ud:

Case billedenr of
  1 : Image1.Picture.LoadFromFile(Application.ExeName + \'\\billede1.jpg\');
  2 : Image1.Picture.LoadFromFile(Application.ExeName + \'\\billede2.jpg\')
  3 : Image1.Picture.LoadFromFile(Application.ExeName + \'\\billede3.jpg\')
  4 : Image1.Picture.LoadFromFile(Application.ExeName + \'\\billede4.jpg\')
  5 : Image1.Picture.LoadFromFile(Application.ExeName + \'\\billede5.jpg\')
end;

og det var da så lidt, det går nok...

/ZIRON

den melder fejl
Case billedenr of  <--- her

hvad gør den, har du husket det:

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    billedenr : Integer;  <----- HER
  end;

og ellers smid lige din kode her...

/ZIRON

Uha den bliver lang

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Buttons, MPlayer;

type
  Telektronik = class(TForm)
    GroupBox1: TGroupBox;
    Button1: TButton;
    CheckBox1: TCheckBox;
    Image1: TImage;
    GroupBox2: TGroupBox;
    Image2: TImage;
    GroupBox3: TGroupBox;
    BitBtn3: TBitBtn;
    Label1: TLabel;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    Memo1: TMemo;
    Memo2: TMemo;
    MediaPlayer1: TMediaPlayer;
    MediaPlayer2: TMediaPlayer;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    procedure Button1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure CheckBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    billedenr : Integer;
  end;

var
  elektronik: Telektronik;

implementation

{$R *.DFM}

const
Case billedenr of
  1 : Image1.Picture.LoadFromFile(Application.ExeName + \'\\1.bmp\');
  2 : Image1.Picture.LoadFromFile(Application.ExeName + \'\\2.bmp\')

procedure Telektronik.Button1Click(Sender: TObject);
begin
    elektronik.Close;
end;

procedure Telektronik.BitBtn3Click(Sender: TObject);
begin
    label1.Caption := \'Hvad er elektronik ?\';
    Memo1.Visible := True;
    MediaPlayer2.Rewind;
    MediaPlayer1.Play;
    Bitbtn1.Visible := True;
    Bitbtn7.Visible := True;
end;

procedure Telektronik.BitBtn4Click(Sender: TObject);
begin
    Label1.Caption := \'Uddannelsen\';
    Memo1.Visible := False;
    MediaPlayer1.Rewind;
    MediaPlayer2.Play;
    Bitbtn1.Visible := False;
    Bitbtn7.Visible := False;
end;


procedure Telektronik.BitBtn2Click(Sender: TObject);
begin
  MediaPlayer2.Play;
end;

procedure Telektronik.BitBtn1Click(Sender: TObject);
begin
  MediaPlayer1.Play; 
end;

procedure Telektronik.BitBtn8Click(Sender: TObject);
begin
    MediaPlayer2.Rewind;
end;

procedure Telektronik.BitBtn7Click(Sender: TObject);
begin
  MediaPlayer1.Rewind;
end;

procedure Telektronik.FormShow(Sender: TObject);
begin
    MediaPlayer1.Play;
end;

procedure Telektronik.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    MediaPlayer1.Rewind;
    MediaPlayer2.Rewind;
end;

procedure Telektronik.CheckBox1Click(Sender: TObject);
begin
    MediaPlayer1.Pause;
    MediaPlayer2.Pause;
end;


procedure Telektronik.FormCreate(Sender: TObject);
begin
billedenr := 1;
Case billedenr of
  1 : Image2.Picture.LoadFromFile(Application.ExeName + \'\\1.bmp\');
  2 : Image2.Picture.LoadFromFile(Application.ExeName + \'\\2.bmp\');
end;
end;

procedure Telektronik.BitBtn6Click(Sender: TObject);
begin
billedenr := billedenr + 1;
Case billedenr of
  1 : Image2.Picture.LoadFromFile(Application.ExeName + \'\\1.bmp\');
  2 : Image2.Picture.LoadFromFile(Application.ExeName + \'\\2.bmp\');
end;
end;

procedure Telektronik.BitBtn5Click(Sender: TObject);
begin
billedenr := billedenr - 1;
Case billedenr of
  1 : Image2.Picture.LoadFromFile(Application.ExeName + \'\\1.bmp\');
  2 : Image2.Picture.LoadFromFile(Application.ExeName + \'\\2.bmp\');
end;
end;

end.

hehe det jeg mente med at du ikke kan bruge const var at du skulle fjerne det, så fjern dette:

const
Case billedenr of
  1 : Image1.Picture.LoadFromFile(Application.ExeName + \'\\1.bmp\');
  2 : Image1.Picture.LoadFromFile(Application.ExeName + \'\\2.bmp\')

/ZIRON

jeg paste\'r det lige igen ik den melder sq stadig fejl ved noget.

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Buttons, MPlayer;

type
  Telektronik = class(TForm)
    GroupBox1: TGroupBox;
    Button1: TButton;
    CheckBox1: TCheckBox;
    Image1: TImage;
    GroupBox2: TGroupBox;
    Image2: TImage;
    GroupBox3: TGroupBox;
    BitBtn3: TBitBtn;
    Label1: TLabel;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    Memo1: TMemo;
    Memo2: TMemo;
    MediaPlayer1: TMediaPlayer;
    MediaPlayer2: TMediaPlayer;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    procedure Button1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure CheckBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    billedenr : Integer;
  end;

var
  elektronik: Telektronik;

implementation

{$R *.DFM}

procedure Telektronik.Button1Click(Sender: TObject);
begin
    elektronik.Close;
end;

procedure Telektronik.BitBtn3Click(Sender: TObject);
begin
    label1.Caption := \'Hvad er elektronik ?\';
    Memo1.Visible := True;
    MediaPlayer2.Rewind;
    MediaPlayer1.Play;
    Bitbtn1.Visible := True;
    Bitbtn7.Visible := True;
end;

procedure Telektronik.BitBtn4Click(Sender: TObject);
begin
    Label1.Caption := \'Uddannelsen\';
    Memo1.Visible := False;
    MediaPlayer1.Rewind;
    MediaPlayer2.Play;
    Bitbtn1.Visible := False;
    Bitbtn7.Visible := False;
end;


procedure Telektronik.BitBtn2Click(Sender: TObject);
begin
  MediaPlayer2.Play;
end;

procedure Telektronik.BitBtn1Click(Sender: TObject);
begin
  MediaPlayer1.Play; 
end;

procedure Telektronik.BitBtn8Click(Sender: TObject);
begin
    MediaPlayer2.Rewind;
end;

procedure Telektronik.BitBtn7Click(Sender: TObject);
begin
  MediaPlayer1.Rewind;
end;

procedure Telektronik.FormShow(Sender: TObject);
begin
    MediaPlayer1.Play;
end;

procedure Telektronik.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    MediaPlayer1.Rewind;
    MediaPlayer2.Rewind;
end;

procedure Telektronik.CheckBox1Click(Sender: TObject);
begin
    MediaPlayer1.Pause;
    MediaPlayer2.Pause;
end;


procedure Telektronik.FormCreate(Sender: TObject);
begin
billedenr := 1;
Case billedenr of
  1 : Image2.Picture.LoadFromFile(Application.ExeName + \'\\1.bmp\');
  2 : Image2.Picture.LoadFromFile(Application.ExeName + \'\\2.bmp\')
end;
end;

procedure Telektronik.BitBtn6Click(Sender: TObject);
begin
billedenr := billedenr + 1;
Case billedenr of
  1 : Image2.Picture.LoadFromFile(Application.ExeName + \'\\1.bmp\');
  2 : Image2.Picture.LoadFromFile(Application.ExeName + \'\\2.bmp\')
end;
end;

procedure Telektronik.BitBtn5Click(Sender: TObject);
begin
billedenr := billedenr - 1;
Case billedenr of
  1 : Image2.Picture.LoadFromFile(Application.ExeName + \'\\1.bmp\');
  2 : Image2.Picture.LoadFromFile(Application.ExeName + \'\\2.bmp\')
end;
end;

end.

Hvad kan der være galt?

hvor er der fejl??

/ZIRON

OK tak jeg tror jeg har den nu :)

så lidt da...

/ZIRON

nej for fanden nu tager den filen fra c:\\ igen med denne code
1 : Image2.Picture.LoadFromFile(Application.ExeName + \'\\1.bmp\');

sagde den at den ikke kunne finde filen c:\\projekt\\projekt.exe\\1.bmp og det var da også et underligt sted de ligger i c:\\projekt\\

hvad snakker du om?

/ZIRON

da jeg brugte dette code
1 : Image2.Picture.LoadFromFile(Application.ExeName + \'\\1.bmp\');

skrev den at den ikke kunne finde
c:\\projekt\\projekt.exe\\1.bmp

så prøvede jeg at slette Application.ExeName +  fra codet så begyndte den at finde billederne fra c:\\ igen :(

om hvad så er der noget galt i det?

/ZIRON

ja billederne ligger jo ikke i c:\\projekt\\projekt.exe\\1.bmp
og den skal jo ikke finde billederne på c:\\ fordi programmet jo også skulle kunne bruges på andre computere og sådan.

kan du se hvad jeg mener.

nej det kan jeg ikke, jeg tror jeg er meget træt ellers er du det :)

/ZIRON

kan man skrive noget andet istedet for
(Application.ExeName + \'\\1.bmp\');
foreksembel

skriv hvad du vil:

c:\\jeg_er\\mega\\træt_og\\gider_ikke\\lave\\flere\\lektier

/ZIRON

hehe billederne kan jo ikke ligge i
C:\\Documents and Settings\\Claus Rasmussen\\Desktop\\Projektopgave\\Project1.exe\\1.bmp

Der siger den at den ikke kan finde billedet hvis jeg bruger det code du gav mig før.
Den skal jo finde billedet i
C:\\Documents and Settings\\Claus Rasmussen\\Desktop\\Projektopgave\\1.bmp

hov når ja... 2 sek...

Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + \'billede1.jpg\');

/ZIRON

fedt det virker

np

/ZIRON

kan man så også gøre sådan så den ikke bliver ved med at tæller når man trykker på næste.
Det gør den nemlig nu så hvis jeg trykker 10 gange på næste skal jeg også trykke 10 gange før jeg kommer tilbage til de andre billeder

leg med en if sætning...

ok jeg prøver
Men det er jo heller ik så vigtigt. Jeg sir igen mange tak.

yes yes. så lidt...

/ZIRON

Kan jeg sq ikke helt finde ud af.
Kan man ikke lave denne linie om så den kun kører op til billed 6.

billedenr := billedenr + 1;

eller måske starter forfra ved 1 når den kommer til billed 6.

lad mig se hvad du selv har fundet ud af?

/ZIRON

Jeg har ik fundet ud af noget :(

hmmm ingen ting, skal jeg se hvad jeg kan finde i hjælpen til delphi på 2 sek?

There are two forms of if statement: if...then and the if...then...else. The syntax of an if...then statement is

if expression then statement

where expression returns a Boolean value. If expression is True, then statement is executed; otherwise it is not. For example,

if J <> 0 then Result := I/J;

The syntax of an if...then...else statement is

if expression then statement1 else statement2

where expression returns a Boolean value. If expression is True, then statement1 is executed; otherwise statement2 is executed. For example,

if J = 0 then

  Exit
else
  Result := I/J;

The then and else clauses contain one statement each, but it can be a structured statement. For example,

if J <> 0 then

begin
  Result := I/J;
  Count := Count + 1;
end
else if Count = Last then
  Done := True
else
  Exit;

Notice that there is never a semicolon between the then clause and the word else. You can place a semicolon after an entire if statement to separate it from the next statement in its block, but the then and else clauses require nothing more than a space or carriage return between them. Placing a semicolon immediately before else (in an if statement) is a common programming error.
A special difficulty arises in connection with nested if statements. The problem arises because some if statements have else clauses while others do not, but the syntax for the two kinds of statement is otherwise the same. In a series of nested conditionals where there are fewer else clauses than if statements, it may not seem clear which else clauses are bound to which ifs. Consider a statement of the form

if expression1 then if expression2 then statement1 else statement2;

There would appear to be two ways to parse this:

if expression1 then [ if expression2 then statement1 else statement2 ];
if expression1 then [ if expression2 then statement1 ] else statement2;

The compiler always parses in the first way. That is, in real code, the statement

if ... { expression1 } then

  if ... { expression2 } then
    ... { statement1 }
  else
    ... { statement2 } ;

is equivalent to

if ... { expression1 } then

begin
  if ... { expression2 } then
    ... { statement1 }
  else
    ... { statement2 }
end;

The rule is that nested conditionals are parsed starting from the innermost conditional, with each else bound to the nearest available if on its left. To force the compiler to read our example in the second way, you would have to write it explicitly as

if ... { expression1 } then

begin
  if ... { expression2 } then
    ... { statement1 }
end
else
  ... { statement2 } ;

det var jo ikke så svært vel?

/ZIRON

http://www.eksperten.dk/spm/156005