// Assign this event to ImageEnView1 and ImageEnView2 to synchronize the view procedure TForm1.ImageEnView1ViewChange(Sender: TObject; Change: Integer); var Dest : TImageEnView; begin if fUpdatingView then exit;
if Sender = ImageEnView2 then Dest := ImageEnView1 else Dest := ImageEnView2;