Paintbox

[umoveme]

Hallo all zusammen!

Ich habe ein kleines Problem:

Über ein Timer sollen mir jede sec. Messwerte an die procedure MesswerteZeichnen übergeben werden, die dann in eine Paintbox gezeichnet werden sollen.
Meiner Paintbox habe ich den Namen Diagramm gegeben was der compiler mir als Fehler anzeigt.
Wer kann mir helfen ?

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Diagramm: TPaintBox;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure MesswerteZeichnen;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var n:integer;
var Messwerte:array of integer;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   inc(n);
   setlength (messwerte,n+1);
   Messwerte[n] := random(10);
   MesswerteZeichnen;
end;
procedure MesswerteZeichnen;
var x_real,k:integer;
begin
   x_real := 40+k;
   Diagramm.Canvas.Pen.style := pssolid;
   Diagramm.Canvas.Pen.Color := clblue;
   Diagramm.Canvas.LineTo(x_real,Messwerte[n]);
   k:=+1;
end;

[Fehler] Unit1.pas(42): Undefinierter Bezeichner: 'Diagramm'

[edit=Luckie]Delphi-Tags eingefügt. Beim nächsten Mal bitte selber machen. Mfg, Luckie[/edit]

[Luckie]

Deine Prozedur MesswerteZeichnen ist keine Methode von TForm1, somit ist die Komponente dort unbekannt. Entweder übergibst du der Prozedur eine Paintbox als parameter oder machst sie zu einer Methode deiner Form-Klasse.

[glunzl]

Mit letzterem meint Luckie wohl
procedure MesswerteZeichnen; in
procedure TForm1.MesswerteZeichnen; ändern
Den Fehler mache ich zumindest zu späterer Stunde gerne mal ...

Gruss
glunzl

[umoveme]

Danke es funktioniert : )