Het is opgelost:


unit Kleuren;

interface

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

.. ik geloof dat alles opgelost is. Ik kan nu ook met een andere knop de lus stoppen. Zo is het geworden:


unit Kleuren;

interface

uses
Windows, Messages, SysUtils, Variants, Classes,...

... !!! Het werkt! 'application.processmessages' lost het op. Hoe kan dat? Ik zal eens zoeken. Heel erg bedankt. Dit is de interface en code:

112855


unit Kleuren;

interface

uses

Goed. Code:

procedure TFormKleuren.KnopRandomClick(Sender: TObject);
begin
for i:=1 to max do
begin
Randomize; r:=Random(max)+1; g:=Random(max)+1; b:=Random(max)+1;
...

.. ik schrijf een programma waarmee je met 3 ScrollBars de R, G en B waarden kunt instellen. Die worden dan gebruikt om de resulterende kleur naar een TMemo veld te sturen. Dan heb ik nog een vierde...

Nee, dit weet ik inderdaad niet. Maar weet jij nu waarom er tijdens her doorlopen van de lus geen text in het edit venster wordt geplaatst en de kleur van een ander edit venster niet wordt getoond?

112729

Dank voor je reactie. Er gebeurt, in mijn ogen, iets heel geks (zie bijlage). Ik moet telkens op ok klikken om de lus verder te laten lopen. Dit moet door ShowMessage veroorzaakt worden....

Ik wil een programma schrijven waarmee je wat met kleuren kunt 'spelen'. Code:

procedure TForm1.LinksClick(Sender: TObject);
begin
dec(teller);
if teller<1 then teller:=nKleuren;
...