boekje maken

[cronixje]

Hallo.

Ik wil graag een boekje maken met Delphi. (zoals deze foto: http://www.1-2-c.kleutergroep.nl/Sch...tijn/image.jpg)

Er moeten dus 3 plaatjes te zien zijn met daarop letters, als je bovenaan op het plaatje klikt, gaat die naar de volgende letter, als je onderaan klikt, naar de vorige.

Ik dacht zelf dus dat ik alle plaatjes met letters maak (jpg/png ofzo) en dan in delphi zet.

Kan iemand mij op weg helpen en uitleggen hoe ik dit ga doen?

Alvast bedankt!

[evertVB]

Ik heb het eens geprobeerd met labels in plaats van plaatjes.
Kijk anders eens wat je hebt aan dit voorbeeld.

[cronixje]

Heel erg bedankt voor je antwoord! Hier kan ik wel mee verder ja!
Waarvoor dienen de labels bovenaan eigenlijk? (Zijn allemaal leeg)

Ik ga morgen eens even proberen hoe ver ik kom en anders laat ik het wel weten!
Bedankt!

[evertVB]

Waarvoor dienen de labels bovenaan eigenlijk? (Zijn allemaal leeg)

Dat was om die omgeslagen blaadjes te simuleren.
Misschien kan het met images allemaal uiteindelijk mooier, maar ik heb nog geen gelegenheid gehad om daarnaar te kijken.

[cronixje]

Ah ok bedankt.

Ik zal nog laten horen hoe ver ik ben gekomen, ik ben namelijk nog best nieuw met delphi dus het kost me nog best veel moeite, bedankt voor je hulp!

[cronixje]

Ik heb trouwens gekeken hoe jij het hebt gedaan 'evertVB',

maar als ik zo dus het hele alfabet moet doen ben ik nog even bezig of niet?
als ik dus hele tijd
if label.caption = d then label.caption = e
if label.caption = e then labe.caption = f..
etc. etc

Is het ook dan mogelijk om het hele alfabet in een array te zetten? Ja toch?
Dit wil ik eerst even gedaan krijgen, en dan wil ik eens gaan proberen om als gebruiker van het programma letters toe te voegen en te verwijderen, maarja, eerst dit

[evertVB]

Wat mij betreft heb je helemaal gelijk. Het voorbeeld was maar zeer summier.

[cronixje]

haha ok, moet ik nu nog even gaan uitproberen of me dat gaat lukken
we'll keep in touch.

[evertVB]

Hier dan een opzet die grafisch iets meer geavanceerd is (of kan worden...)

[cronixje]

Ziet er mooi uit ja Bedankt voor je hulp, zeer handig!

Ik heb nog geprobeerd een array te maken.. en dan dat je als je op een button klikt dat die dan nummer+1 doet zeg maar. Alleen het lukt me niet helemaal.

Ik post de file er wel even bij, ik heb dus een extra form gemaakt met daarin de array maar daar geeft die al een foutmelding (ik ben een beetje slordig bezig geweest dat wel ja, sorry hiervoor) .. maar ben ik zo een beetje op de goede weg of?

Bedankt!

[evertVB]

OK dit zie ik staan in jouw nieuwe form:

unit Unit9;

interface
 procedure alfabet;


var
  alf : array[1..7] of string;


implementation

procedure alfabet;
begin
  alfabet[1] := 'A';
  alfabet[2] := 'B';
  alfabet[3] := 'C';
  alfabet[4] := 'D';
  alfabet[5] := 'E';
  alfabet[6] := 'F';
  alfabet[7] := 'G';
end;



end.

- Je hebt 'alfabet' gedeclareerd als procedure naam, en 'alf' als array. Vandaar dat alfabet[1] := 'A'; een compileerfout geeft. Beter is dan alf[1] := 'A';
- Je hoeft niet perse in nieuw form te beginnen. Je kunt de array alf en de procedure alfabet toevoegen aan de code van het eerste form.

[cronixje]

var
Form1: TForm1;
alf: array[1..7] of string;
nummer: integer;

implementation

{$R *.dfm}

var
Letters1, Letters2, Letters3: string;
const
CellColors: array[Boolean] of TColor = (clWhite, clBlack);


procedure alfabet;
begin
alf[1] := 'A';
alf[2] := 'B';
alf[3] := 'C';
alf[4] := 'D';
alf[5] := 'E';
alf[6] := 'F';
alf[7] := 'G';
end;


constructor TBoard.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ControlStyle := ControlStyle + [csOpaque];
CellSize := 300;
Width := 900;
Height := 300;
GridSize := Width div CellSize;
FBackground := TBitmap.Create;
SetupBackground;





Zoeits dus?

[evertVB]

Ja.
En je moet de procedure alfabet nog ergens aanroepen.
Dat kun je het beste doen vanuit de procedure FormCreate.

[cronixje]

ok ik heb nu een array van A t/m Z..

en dan doe ik dus als variabele b.v. nummer : integer
alf: array[1..28] of string;

begin
nummer:=alf+1;
Letters1 := alf[I];

Hierbij gaat hij dus het hele alfabet af als ik op die button klik.. prima dus lijkt me?
Alleen als die dan bij de laatste letter komt, en je dan weer op de button klikt dan is het scherm leeg.. hoe laat ik hem weer bij het begin beginnen?

Ik denk dat als ik dit heb gedaan dat ik dan b.v. moet gaan maken dat je letters kunt toevoegen of verwijderen van je kaartjes ofzo?... hoe zou ik dat moeten aanpakken?
Is het dan niet zo dat ik dan 3 verschillende arrays moet maken, en dat ik dan bij elke 3 verschillende 'stapels met blaadjes' letters moet kunnen toevoegen verwijderen?

[evertVB]

Alleen als die dan bij de laatste letter komt, en je dan weer op de button klikt dan is het scherm leeg.. hoe laat ik hem weer bij het begin beginnen?

Ik neem aan dat je zoiets hebt:

  nummer := nummer + 1;
  Letters1 := alf[nummer];

(Of iets wat op hetzelfde neerkomt.)

Maar dat moet dan worden:

  nummer := nummer + 1;
  if nummer > 26 then nummer := 1;
  Letters1 := alf[nummer];

Ik denk dat als ik dit heb gedaan dat ik dan b.v. moet gaan maken dat je letters kunt toevoegen of verwijderen van je kaartjes ofzo?... hoe zou ik dat moeten aanpakken?
Is het dan niet zo dat ik dan 3 verschillende arrays moet maken, en dat ik dan bij elke 3 verschillende 'stapels met blaadjes' letters moet kunnen toevoegen verwijderen?

Dit is een kwestie van vele wegen leiden naar Rome denk ik. Ik moet er even over dubben.

Ook moet ik nog even kwijt dat je hier veel en snelle en goede respons kunt verwachten.

[cronixje]

Ok bedankt, laat maar wat horen als je het weet
ik ga maar eens wat proberen.

[cronixje]

ik dacht dus aan b.v. een edit met daarnaast een button.. als je in die edit bv. EU invult.. dat er dan alfabet[27] = 'EU' komt te staan in de array lijst.. alleen weetnog niet echt hoe ik dit moet doen..

[cronixje]

evertb ben je nog steeds actief op dit forum? Ik heb in januari heel veel aan je hulp gehad, maar heb weer hulp nodig, als je kan helpen, laat het even weten bedankt!
(of iemand anders natuurlijk ook) het gaat nogsteeds over arrays.

[evertVB]

jij bent toch daar als snaky actief?

[cronixje]

klopt en jij bent daar evert, nou dan sorry voor de vorige post, heel erg bedankt voor de hulp die je me aanbiedt