So wäre das im Ansatz richtig:
Delphi-Quellcode:
procedure TForm2.MenueCreate(Sender: TObject);
begin
keypreview := True;
ActiveImage := Image1;
Self.ClientWidth := 512;
Self.ClientHeight := 256;
Self.Image1.Width := 511;
Self.Image1.Height := 255;
F_obereAchsen := False;
F_KeyA := False;
MeineKlasse := TMeineKlasse.Create;
MeineKlasse.OnvalueChange := Self.OnValueChange;
end;
Nun müsstest du uns nur noch die Stelle zeigen, wo du das machst:
Delphi-Quellcode:
MeineKlasse.BWStellung := ... // Die Zuweisung des neuen Wertes
// Das musst du ja irgendwie durch Pollen im Timer oder Thread umgesetzt haben?!